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PREFACE 


This manual is intended as a refe.ence for the programmer of the Series 
600/6000 ALGOL language. The language is defined and instructions are given as y 
to methods of writing ALGOL programs for both batch and time-sharing 
environments. 
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SECTION I 


INTRODUCTION 


DEFINITION OF ALGOL 


ALGOL (ALGOrithmic Language) is a computer language with the unique 
capability for expressing problem solutions as efficient and precise procedures. 


The ALGOL language can be considered an international algorithmic language 
for computing, for it appears to be universal in concept and is effective for 


stating a wide class of algorithms for numerical mathematics and for some 
logical processes. 


ALGOL is comprised of a set of symbols and a set of rules. Associated with 
these are a set of definitions which are peculiar to a description of the 
language, its form, and use. 


STRUCTURE OF ALGOL 
ALGOL is composed of statements and declarations. 


. . \ 
° Statements are used to specify operations to be performed by the 
computer in solving a problem, 


e Declarations provide the ALGOL compiler with information needed to 
define and link together various elements of the computer program 
during processing. In addition, the existence of declarations within 
the language facilitates the definition of program parameters, 


The statements and declarations in turn are composed of symbols. Some 
ALGOL symbols might conventionally be termed “character strings"; however, the 


definition of a symbol in ALGOL does not imply a single character. Certain 


symbols are enclosed in apostrophes. These apostrophes are a part of the symbol 
and must always appear when the symbol is used. 


Statements and declarations are translated by the ALGOL compiler and the 
program is executed under the control of the Comprehensive Operating Supervisor 
(GCOS). Only those rules and symbols which govern ALGOL programming on a_ Series 
600/6000 computer system are considered in this manual. 
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BASIC SYMBOLS 


The basic symbols utilized for writing ALGOL programs are as follows: 


e uppercase letters A to Z 


e digits 0 to 9 


e logical values - 


e special symbols 


OPERATOR SYMBOLS 


Arithmetic Operators 


Relational Operators 


Symbol 


‘hs! 
"LQ! 
"EQ! 
"GQ! 
'GR! 
'NQ! 


Logical Operators 


Symbol 


'EQV! 
‘IMP! 
‘OR! 

‘AND! 
"NoT' 


"TRUE', 'FALSE' 


Definition} 


addition 
subtraction 
multiplication 
division 
division 
exponentiation 


less than (<) 

less than or equal to (<) 
equal to (=) 

greater than or equal to (2) 
greater than (>) 

not equal to (#) 


Definition 


equivalent (#) 
implies (>) 
or (A) 

and (v) 
negation (nr) 


lithe symbols shown in this column are not necessarily available to the user 


for coding. They are included to 


show the mathematical meaning of 


corresponding ALGOL symbol. 


the 


PUNCTUATION SYMBOLS 


The following symbols have definite functions in the ALGOL language. 


Symbol Definition Use 
* period decimal point in numbers 
‘ comma separator for items in a list 
3 colon separator for statement label 
i semicolon separator for statements 
( left parenthesis enclose parameter lists; 
indicate 
) right parenthesis expression evaluation 
left bracket enclose subscripts 
S right bracket 
left string quote enclose strings 
\ right string mote 
u apostrophe indicate exponent 
- arrow 


assignment operator 


blank space space within strings 


RESERVED WORDS 


These special symbols have a fixed meaning in the ALGOL language. 


"ARRAY' "LINK' 
'BEGIN' "NONLOCAL' 
‘BOOLEAN' ‘OWN' 

"CODE' "PROCEDURE' 
"COMMENT! ‘REAL! 

"po! ‘RENAME! 
"ELSE! ‘STEP’ 

‘END! 'STRING' 
"EXTENDED REAL' "SWITCH' \ 
'FOR' ‘THEN’ 
‘GoTo' ‘UNTIL’ 

ae” "VALUE! 
‘INTEGER' "WHILE' 
"LABEL' 


STATEMENT TYPES 


There are six types 


of statements available in ALGOL. Their names and a 


brief description of their functions follow: 


Name 


Assignment 


Conditional 


Dummy 


Statement Types 


Function 


To perform calculations and to assign a value to a 
variable or a group of variables 


To control the execution of individual statements or 
groups of statements 


To satisfy a programming protocol but it in itself 
performs no operation 
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"FOR' To iterate a sequence of statements 
‘GoTo! To transfer control 


Procedure To call a previously defined sequence of statements 
(e.g., a subroutine) 


DECLARATION TYPES 


There are five types of declarations available in ALGOL. ‘Their names and a 
brief description of their functions follow: 


Declaration Types 


Name Function 

"ARRAY! To define an array, specify its dimensions and its type 

"PROCEDURE! To define a subset of the computer program (e.g., a 
subroutine) 

‘SWITCH’ To specify control parameters which govern the sequence 
of program execution 

Type To specify the kind of value which a variable is to 
represent 

"LINK' \ 0 permit separate compilation of parts of a program 


COMBINING STATEMENTS 


The ALGOL language is structured in such a way as to impose rules. of 
combining statements and segregating these as programs or subprograms in their 
own right, These concepts are presented in "Compound Statement and Block", 
Section VII. 


INPUT/OUTPUT PROCESS 


ALGOL does not contiin statements which allow direct control of the 
input/output process. Thus, no statements or declarations exist for reading from 
or writing on external devices (e.g., READ, WRITE, etc., as in FORTRAN). TO 
accomplish the usual inpu:/output operations, procedures are provided which may 
be "called" by the user 1s subroutines. These procedures are described in 
"Input/Output", Section VIII. 
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SECTION II 


WRITING AN ALGOL PROGRAM 


FORM OF AN ALGOL PROGRAM 


ALGOL programs are divided into logical sections called blocks. The entire 
program is also a block and must be enclosed within the symbols 'BEGIN' and 
‘END'. A block may contain any number of sub-blocks within it. 


Variables, arrays, procedures and switches which are used in a block are 
defined in declarations at the beginning of the block. These declarations are 
followed by the statements of the block. Any statement of a block may in itself 
be a block (i.e., it must have block format as described in Section VII) and 
thus blocks may be nested to any depth. 


All ALGOL statements may be labelled with one or more statement labels; 
i.e., simple statements, compound statements, and blocks may be labelled. 


Execution of an ALGOL program starts with the first statement and continues 
successively from statement to statement. However, certain statements in the 
language have the power to change the sequence of statement execution. 


Execution of the program is terminated when gontrol reaches the 'END' 
symbol of the outermost block of the program. 


The following diagram portrays visually the structure of a typical (though 
arbitrary) ALGOL program. Each bracket denoted by 


ae 


‘END! 
represents a block. 


The blocks are composed of declarations and statements (as discussed 
above). The declarations must precede the statements. This diagram represents an 
ALGOL program with three block levels and four blocks. 
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"BEGIN' 


"BEGIN' 


‘END' 


“BEGIN' 


"BEGIN' 


"END' x declarations 
+ statements 


"END' 


‘END! 4 


WRITING RULES AND TECHNIQUES 


Coding 


The ALGOL program may be written on any 72-column coding form but writing 
will be facilitated if the program is written on forms designed specifically for 
the language. 


Columns 1-72 of the coding form may be used for ALGOL statements and 
declarations, ALGOL code may appear anywhere within these columns. 


The coding may be free-form, That is, any number of statements and/or 
declarations may appear on a single line. 


A single statement or declaration may occupy as many lines as is required. 


Blanks may be used freely throughout the ALGOL code to improve the 
readability of the text. The only place in ALGOL in which blanks are significant 
is in strings. In all other instances they are disregarded by the compiler. 
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Since the line format of ALGOL programs is very flexible, it is suggested 
that statement levels be indented on a new line to improve ease of reading and 
understanding a program. 


Thus each new 'BEGIN' symbol may be indented at a new margin, and the ‘END! 
corresponding to the 'BEGIN' may be placed at the same margin. Since statements 
may contain other statements, each lower statement level may be indented. When 
a higher level is resumed, statements for that level may be placed at the proper 
level margin (see form of the sample program given at the end of this Section). 


Line indenting will in no way affect program execution but tends to make 
the program structure easier to follow. 


Punctuation 


When writing ALGOL statements and declarations, there are two important 
rules of punctuation which must be observed. 


a. The semicolon is used as the symbol between statements and between 
declarations. However, the semicolon may be omitted after the last 
simple statement of a compound statement or block. The symbol ‘END! 
serves as a statement separator in this case. 


Examples: 


1. A- 2; 'GOTO' Z 


2. ‘BEGIN' 'INTEGER' A; 'REAL' B; A= 5.3; B=+7.2 ‘END! 
25 The colon is used as the symbol to separate a statement label from a 
statement. 
\ 
Examples: 
i. L: A+ B+C; P: 'GOTO' R 


2. T: ‘BEGIN' I-I+l; J-J+1 'END' 


Insertion of Comments 


If it is desired to place comments within the text of an ALGOL program, it 
may be done as follows: 


1. To insert a comment between statements or declarations, or at the 
beginning of a compound statement or a block, the comment must be 
enclosed within the symbols 'COMMENT' and semicolon. 


Examples: 
1... AB; 'COMMENT' COMPUTING C; C~A 
2. "BEGIN' 'COMMENT' COMPUTING C; A~B; C~A 'END' 
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2. To place a comment after a compound statement or a block (i.e., after 
the symbol 'END') the sy 30] 'COMMENT' is not necessary. A semicolon 


must be used after the text if an 'END' or 'ELSE' symbol does not 
appear. 


Examples: 
1. "BEGIN' A~ B; C~A ‘'END' COMPUTING D; D-C 
2. ‘IF' A 'LS' B 'THEN' 'BEGIN' A-B; 


C-A 'END' COMPUTING C D IF A LS B 'ELSE' B~A 


A_SAMPLE ALGOL PROGRAM 


To illustrate the fundamentals of ALGOL, a sample ALGOL program is 
provided, 


The purpose of this sample program is to merge two sets of numbers. The 
two sets are contained in locations a(1l), a(2), vali), » a(m) and bl), 
b(2),..+,b(j),...,b(m). The numbers in each set are assumed to be arranged in 


increasing order, The merged set is contained in locations c(1l), C(2),..+, 
C(K) pees 


The program operates as follows. The elements of arrays a and b are 
compared, At each comparison, the smaller element is put into the “result array 


c. When the end of either array a or b is reached, any remaining elements in the 
Other array are put into the resUlt array. 


\ 
Symbols used in the program: 


Symbol Description 


Identifier of input array 

Identifier of input array 

Identifier of output array 

Subscript bound for array A 

Subscript bound for array B 

Subscript bound for array C 

Subscript for array A 

Subscript for array B 

Subscript for array C 

Controlled variable of 'FOR' statement 


WRUHDEZATD 


A listing of the program follows. The program is assumed to be a _ block 
contained in a larger block wherein the value of N, M, and R are assigned, and 
wherein P is defined. 
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140 


Program Line 


‘BEGIN' 'ARRAY' A[{1:N], B(1:M], C[1:R]; ‘INTEGER’ Ty 100 
J, K; I-J+K-1; 1lo 
START: 'IF' I 'GR' N 'THEN’ 120 

‘BEGIN' P-0; Q: C[K+P]—B[J+P]; P— P+]; 130 
‘IF' P 'LQ' M-J 'THEN' 'GOTO' Q 'END' 
‘ELSE' 'IF' J 'GR' M ‘THEN! 140 
"BEGIN' P-0; S: C(K+P]-—A[I+P]; P~- P+l; 150 
‘IF' P 'LQ' N-I 'THEN' 'GoTO' S ‘END! 
‘ELSE' 'BEGIN' 160 
‘ir' A(t) 'cq' B(g] ‘rHEN' 170 
"BEGIN' C[k] -B(g]; 180 
J= +1 ‘END! 
'ELSE' 'BEGIN' C(K]~A(I]}; 190 
I-I+l] 'END'; 
K~K+l; 'GOTO' START 200 
‘END! 210 
‘END! 220 


A line by line description of this program is given below. 


Description 
\ 
Contains 'BEGIN' for the block, and declarations of variables used. 


Contains an assignment statement which sets I, J, and k to the value 


Contains statement label "START" and the beginning of & conditional 
statement which extends to line 210, The 'IF' clause ctecks whether 
all of the elements of array A have been compared. 


Contains the true branch of the 'IF' clause of line 120. The true 
branch is a compound statement which moves the remaining elements, 
if any, of array B to array C. 


Contains the start of the false branch of the 'IF' clause of line 
120. The ise branch extends to line 210. The 'IF' clause in this 


line chec whether all of the elements of array B have been 
compared. 


Contains the true branch of the 'IF' clause of line 140.° The true 


branch is a compound statement which moves the remaining elements of 
array A to array C. 


Contains the start of the false branch of the 'IF' clause of line 
140, The false branch is a compound statement enclosed within 
‘BEGIN' and 'END' and extends to line 210. 
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170 Contains an 'IF' clause which compares elements of arrays A and B. 


180 Contains the true branch of the 'IF' clause of line 170. The true 
branch is a compound statement which moves an element of array B_ to 
array C and then updates the B array subscript, J. 


190 Contains the false branch of the 'IF' clause of line 170. The false 
branch is a compound statement which moves an element of array A to 
array C and then updates the A array subscript, I, 


200 Contains an assignment statement to update the C array subscript, K, 
and a 'GOTO' statement to transfer control to the statement labelled 
"START." 

210 Contains 'END' for the compound statement starting on line 160. 

220 Contains 'END' for tl. Flock starting on line 100. 


The structure of the conditional statement of the program is shown in 


Figure 2-1, 


and 
the 


and 
the 


and 
the 


If the condition of line 120 is true, the true branch, line 140, is taken 
subsequent control goes to line 210; i.e., the false branch is skipped. If 
condition of line 120 is false, control goes to the false branch, line 140. 


If the condition of line 140 is true, the true branch, line 150, is taken 
subsequent control goes to line 210; i.e., the false branch is skipped. If 
condition of line 140 is false, control goes to the false branch, line 160. 


If the condition of line 170 is true, the true branch, line 180, is taken 
subsequent control goes to line 210; i.e., the false branch is skipped. If 
condition of line 170 is false, control goes to the false branch, line 190, 


START: 'IF' , . . 'THEN' 120 
130 
« « « ‘THEN! 140 
C 150 
‘ELSE’ IF" ooo! “THEN! 160-170 
C 180 
‘ELSE’ 190 
200 
210 


C 
‘ELSE' ‘IF! 


Figure 2-1. Outline of Conditional Statement 
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SECTION III 


ALGOL LANGUAGE DEFINITIONS 


The following terms are defined as they apply to the ALGOL language. 


IDENTIFIER 


A name given to a variable, an array, a label, a switch, and a _ procedure. 
The name may be composed of any number of letters and digits. However, the name 
must begin with a letter. 


Example: 


A, BETA, M12, T12C7, TOTALAMOUNT 


Blanks are not considered significant in ALGOL except in strings, and they 
may be used freely within identifiers. 


Example: 


AB LE is considered the same identifier as, ABLE or ABLE. 


Two different quantities may not have the same identifier unless they 
appear in different blocks. (See "Compound Statement and Block", Section VII for 
clarification.) Certain identifiers are recognized as standard procedures by the 
ALGOL compiler. (See the list of reserved identifiers in Appendix A). 


NUMBER 


Integer, real number, extended real number. 


INTEGER 


A whole number written without a decimal point consisting of 1 to ll 
decimal digits. The range of an integer n is: 


-235 < 235 


The precision is to 10 decimal digits. 
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Positive integers may have no sign. Negative integers must be preceded by a 
minus sign, 


Examples: 


0,-452,+7586421,33 


REAL NUMBER 


A series of from 1 to 9 decimal digits written with or without a decimal 
point. If the decimal point appears, it must not be the last character. 


An exponent part may be added to specify the integral power of 10 to which 
the number must be raised, The exponent part is separated from the digits by an 
apostrophe ('). The exponent may also appear alone, 


The range of a real number n is: 


9127 < 2127 


<n 


The precision is to 8 decimal digits. Positive real numbers clo not require 
a sign. However, a plus sign is permitted, Negative real numbers require a 
minus sign, 


Examples: 
1 
15.7, -.0045, +25.0, 1.7'=3, 5°3 
EXTENDED REAL NUMBER 


A series of from 1 to 19 decimal digits written with or without a decimal 
point. If the decimai point appears, it may not be the last character. 


An exponent part may be added to specify the integral power of 16 te which 
the number must be raised. 


The exponent part may also appear alone. 


The range of an extended real number is: 


2127 © yg 9127 


The precision is to 18 decimal digits. 


Positive extended real numbers do not require a sign. However a plus sicr 
+s permitted. Negative extended real numbers require a minus sign. 


Examples: 


135982.7834, 21.762'-19 
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STRING 


A sequence .. basic symbols enclosed in the left and right string quotes (" 
and\ ); or a sequence of basic symbols and strings enclosed in the string 
quotes. 


Strings may be used as actual parameters of procedures. 


Examples cf strings: 
"A BC\ 


"2B" CDE\F3\ 


A quantity referred to by a name (the variable identifier) whose value may 
be changed. 


The kinc of quantity a variable may represent is determined by a_ type 
declaration ind may be either integer, real, extended real, or Boolean. 


Example: 
X, ABC, ‘YZ5N, 


THIS IS A VARIABLE 


SUBSCRIPTED VARIABLE 
\ 
A svubscripted variable has the form a(b),b2,...,bp]) where a is i> array 
identifier and b),b2,...,bpy are arithmetic expressions, 


The number of subscripts n must be the same as the number of 


dimensions 
declared for a. 


Each subscript bj acts like a variable of type 'INTEGER' and the evaluation 


of the subscript is understood to be equivalent to an assignment to this integer 
variable, 


Evaluation of subscripts within a subscript list proceeds from left to 
right. The value of the subscripted variable is defined only if the value of 
each subscript expression is within the subscript bounds of the array. 


Example: 


aB(1,3], Boy('IF' B 'EQ' C 'THEN' 1 'ELSE' 2] 
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SIMPLE ARITHMETIC EXPRESSION 


A sequence of numbers, variables, subscripted variables, or function calls 
separated by arithmetic operators and parentheses, which represents a rule for 
computing a numerical value. 


1. All quantities used in an arithmetic expression must be of type real, 
extended real, or integer. 


Qe For operators +, -, or *, the result of calculation will be integer if 


both operands are integer; real if both operands are real; and 
extended real for all other cases. 


3. There are two operators wt'ch denote division-- / and &. Both are 
defined for all combinations of real, extended real, and integer 
quantities; however, 


a. / will give a result of type real only if both operands are real. 
In all other cases, the result will be of type extended real. 


b. % will give the same results as / except that the value will 


always be integral. The result is truncated not rounded to an 
integer; i.e., 5% 321 


4. Exponentiation - 
a. atbic is equivalent to (ab)¢, 


b. The types of the base and the exponent may be any combination of 
real, extended real, and integer, 


c. If the expchent is an integer, the result is as follows: 
exp. base result 
>0 all same type as base 
=0 #0 same type as base 
=0 =0 operation is undefined 
<0 #0 real if base is real, 
otherwise extended rea) 
<0 =0 operation is undefined 
d. If exponent is real or extended real, the result is as follows: 
exp. base result 
>0 real if base is real, 
= >0 otherwise extended real 
<0 
>0 =0 real if base is reel, 
otherwise extended real 
<0 =0 operation is undefined 
>0 
=o | <0 operation is undefined 
<0 
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5. Hierarchy of Operators 


a. exponentiation t : 
b. multiplication and division * / 4% 
c. addition and subtraction + - 
6. Expressions inside parentheses are evaluated first. 
7. Evaluation proceeds basically from left to right within the hierarchy 


and within parentheses. Function calls and parenthesized quantities 
are evaluated from left to right. 


'IF' CLAUSE ARITHMETIC EXPRESSION 


‘IF' a 'THEN' b 'ELSE' c, where a is a Boolean expression, b is a _ simple 
arithmetic expression, and c is either a simple arithmetic expression or an ‘IF! 
clause arithmetic expression. 


The 'IF' clause arithmetic expression causes one of several arithmetic 
expressions to be evaluated on the basis of the value of Boolean expressions, 


The expression to be evaluated is selected as follows: 


i. The Boolean expressions are evaluated one by one in sequence from left 
to right until one having a value 'TRUE' is found. 


2. The value of the 'IF' clause arithmetic expression is the value of the 
first simple arithmetic expression following this Boolean expression. 


ARITHMETIC EXPRESSION 


; ; ; , \ 
Either a simple arithmetic expression or an’ ‘IF' clause arithmetic 
expression. 


SIMPLE BOOLEAN EXPRESSION 


A sequence of variables, subscripted variables, function calls, and 
relations possibly separated by logical operators and parentheses, which 
represents a rule for computing a logical value (i.e., 'TRUE' or 'FALSE'). 


1. Variables and functions used with the logical operators must be 
declared to be of type Boolean. 


2. A relation is composed of two arithmetic expressions separated by a 
relational operator. 


Example: 
A-B*C 'EQ' Z*Y 


3. A relation has a value of 'TRUE' if the relation is satisfied; 
otherwise it has a value of 'FALSE'. 
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4. The logical operators are defined as follows: 


a. ‘NOT' a is true or false if a is false or true, respectively. 

b. a 'AND' b is true if both a and b are true, otherwise it is 
false. 

Cs a 'OR' b is false if both-a and b are false, otherwise it is 
true. 

da. a 'IMP' b is false if a is true and b is false, otherwise it is 
true. 

e. a 'EQV' b is true if either both a and b are true or both are 


false, otherwise it is false. 


5s The hierarchy of operations .1 evaluating a Boolean expression is as 


follows: 
a. arithmetic operators - same order as for arithmetic expressions 
b. relational operators 
c. logical operators 
6. The hierarchy of logical operators is: 
a. ‘Not’ 
be "Ae! 
c. "OR' 
ad. ‘IMP! } 
e. ‘EQV' 
7. Expressions inside parentheses are evaluated first. 


'1F' CLAU3E BOOLEAN EXPRESSION 


‘IF' a 'THEN' b 'ELSE' c, where b is a simple Boolean expression and a_ and 
c are eitier simple Boolean expressions or 'IF' clause Boolean expressions. 


The 'IF' clause Boolean expression is evaluated in the same way as an 'IF' 
clause arithmetic expression. 


BOOLEAN EXPRESSION 


Either a simple Boolean expression or an 'IF' clause Boolean expression. 


EXPRESSION 


Either an arithmetic expression or a Boolean expression. 
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STATEMENT LABEL 
An identifier placed before a statement. 


A statement label must be followed by a colon to separate the label from 
the statement, 


A statement may have more than one label, each one followed by a colon. 


Statement labels are used so that a statement may be referenced. 
Examples: 

1. AB: A~B; 

2. AC: 'BEGIN' A+ C 'END' 

3. AD: 'BEGIN' AE: A~E 'END!' 


4. AF: AG: AH: AH; 


SWITCH DESIGNATOR 


sw({a], where sw represents a switch identifier and a represents an 
arithmetic expression. 


CONDITIONAL DESIGNATOR 


A clause of the form 'IF' b 'THEN' c 'ELSE' d, where b represents a Boolean 
expression, c may be either a statement label, a yswitch designator, or a 
conditional designator enclosed within parentheses, ‘and a may be either a 


statement label, a switch designator, or a conditional designator (which need 
not be enclosed within parentheses). 


DESIGNATIONAL EXPRESSION 


A statement label, a switch designator, or a conditional designator. 


SIMPLE STATEMENT 


A statement which is not a compound statement or a block. 


Examples: 


assignment 
conditional 
dummy 

"FOR' 

"GO TO' 
procedure 
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SECTION IV 


STATEMENT AND DECLARATION FORMS 


The form of each statement and declaration is 
describes each statement in detail; 
detail. 


ASSIGNMENT STATEMENTS 


Name 
Assignment, simple 
Assignment, 'IF' clause 
Assignment, two 'IF' clauses 


Assignment, n 'IF' clauses 


CONDITIONAL STATEMENTS 


Name 
Conditional, simple 
Conditional, 'ELSE' 
Conditional, two 'IF' clauses 
Conditional, two 'IF' clauses, 
‘ELSE’ 
Conditional, n 'IF' clauses 
Conditional, n 'IF' clauses, 


"ELSE' 


Section VI describes 


Form 


aj ag-...+an-e 


a]—a2-...-an-'IF' bj 'THEN' e] 
‘ELSE’ e2 
a) ~-ag~...+aq+ IF! by 'THEN' e} 
‘ELSE’ 'I b2 'THEN' e2 'ELSE' e3 
al~-ag-...-an~'IF' bl 'THEN' e] 
‘ELSE’ 'IF' b2 'THEN' e2 ‘ELSE’ ... 
‘IF’ bn 'THEN' en ‘ELSE’ engy 
\ 

Form 
‘IF' b 'THEN' s 
‘IF' b 'THEN' s} 'ELSE' s2 
‘IF' b) 'THEN' 8) 'ELSE' 'IF' b2 
"THEN' s2 
‘IF' b) 'THEN' sj 'ELSE' ‘IF! b2 
'THEN' s2 'ELSE' s3 
‘IF' by 'THEN' S, 'ELSE' ‘IF' b2 
'THEN' s2 'ELSE' ... 'IF' by-} 
‘THEN' Sp-] 'ELSE' 'IF' by 'THEN' sp 
‘IF' by 'THEN' s) 'ELSE' ‘IF! bg 
‘THEN' s2 'ELSE' ... 'IF' by-y 
‘THEN' Sp) 'ELSE' sp, 
4-1 


listed below. 


Section Vv 


each declaration 


in 
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DUMMY STATEMENT 


Name Form 


Dummy (null form) 


'FOR' STATEMENTS 


Name Form 

‘FOR', expression "FOR' v-e 'DO' s 

‘FOR', 'STEP' clause ‘FOR' v~e) 'STEP' e2 'UNTIL' e3 'DO' s 
"FOR', 'WHILE' clause 'FOR' v-e 'WHILE' b 'DO' s 

'FOR', general 'FOR' V~a),a2,-.+,ap 'DO' s 


'GO_TO' STATEMENTS 


Name Form 

'GO TO', label ‘GO TO' a 

'GO TO', switch designator 'GO TO' sw [a] 

"GO TO", conditional designator "GO TO' 'IF' b 'THEN' @) 'ELSE' dg 


PROCEDURE STATEMENT 


Name Form 
Procedure statement name (a) t az t ... t an) 


"ARRAY' DECLARATIONS 


Name Form 
"ARRAY' type 'ARRAY' AL agree eran 
"ARRAY', ‘OWN! ‘OWN' type 'ARRAY' a),a2,.-./an 
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'"PROCEDURE' DECLARATIONS 


Name 
"PROCEDURE' declaration, simple 


"PROCEDURE' declaration, 
specification part 


"PROCEDURE' declaration, value 
and specification part 


‘PROCEDURE' declaration, 
function definition 


‘PROCEDURE' declaration, 
separately compiled 


"SWITCH' DECLARATION 
Name 
"SWITCH' 
TYPE DECLARATIONS 


Name 
Type 
Type, ‘OWN' 
‘LINK' DECLARATION 


Name 


"LINK! 


Form 
‘PROCEDURE’ name (a, t ag t ... t an): 


“PROCEDURE' name (aj t az t... t an); 
sp list; sp list;...; sp list; s 


"PROCEDURE'’ name (aj t a2 t ... t an); 
'VALUE' list; sp list; sp list;...; 

sp list; s 

type 'PROCEDURE' name (a) t agt... t 
an); 'VALUE' list; sp list sp list;. 
sp list; s 


‘CODE' 'BEGIN' ajd2;...;dn ‘END' 


Form 


"SWITCH' sw~d},d2,...,dn 


Form 
type V1,V2,--.,Vn 
"OWN' type V1LiV2eeee-Vn 
\ 
Form 


"LINK' string; 


s 
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SECTION V 


STATEMENTS 


DESCRIPTIVE FORMAT 


The description of each statement in the ALGOL language is presented in 
this Section, Each statement description starts on a new page, with the format 
of its descriptive material given as shown below: 


Descriptive name 

(A brief statement of the purpose of the statement) 

Form 

(Form of the statement) 

(Definition of symbols used in the form line) 

Rules \ 

(A list of rules governing the correct usage of the statement; 


includes restrictions, suggestions, etc.) 


Examples 


(A list of examples illustrating the use of the statement) 
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ASSIGNMENT ASSIGNMENT 


ASSIGNMENT, SIMPLE 


To perform numerical calculations; to perform Boolean operations; to assign 
a value to one or more variables or procedure identifiers in a single statement. 


ay-a2-- aoe ~anr-e 
4)/42,-++-,a,: variables, subscripted variables or procedure identifier 


e: arithmetic or Boolean expression 


Rules 

l. his statement causes expression "e" to be evaluated and the result to 
be assigned to 41142,-+++,a,- (Note. There need be only one variable; 
@.g., aye). 

2, The character " signifies assignment of the value of the expression 
to the variable(s). 

3. whe process of assignment is as follows: 

a. Subscripts, if any, occurring in the variables are evaluated from 
left to right. 

b. The expression " is evaluated, 

Ce The value of the expression is assigned to all the variables 
41,42,+++,an from right to left across the left side as follows: 
The value of e is assigned to 4n, the value of ap is assigned to 
4pair ele. Finally, the value of a2 is assigned to a. 

4. The types of the variables must be as follows: 

de The types may be all Boolean. In this case, the expression "e" 
must be Buolean, 

by The types may be real, extended real, or integer. In this case, 
the expressicn "e" must. be arithmetic. 

ce Boolean types may not be mixed with the other types. 

S When "c" is an arithmetic expression and its type ani the type of 
variable apn is different, the value of "e" is changed to the type 
specified by apn before it is assigned to an. (See "AlGOL Language 
Definitions", Section 111, for forms of integers, real numbers, and 
extended real numbers.) 

6. In the casc in which "e" is real or extended real and ap is an 


anteger, "e" is operated upon by the function ENTIER (e+.5). The 
result of ENTIER is the largest inteyer not greater than the value of 
the argument. This value is then assigned to an- 
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ASSIGNMENT ASSIGNMENT 


Examples 


When the type of aj and aj_, is different, the value of ay, is changed 
before it is assigned to aj}: 


The case of an aj being a procedure identifier is only used in 


defining functions. (See "PROCEDURE declaration, function 
definition.) 


In these examples, A, B, C, and D identify 'REAL' type variables. R AND S 
identify 'INTEGER' type variables, and W identifies a 'BOOLEAN' type variable. 


1. 


A= BtC 

The value of B + C is assigned to A. 
A-D-BtC 

The value of B + C is assigned to A and D. 
A-~R-3.9 

4 is assigned to R and A. 

R-Ae 2,9 

3.9 is assigned to A and 4 is assigned to R. 
J-1; stu) -3-2 

First, 1 is assigned to J. Then 2 is asaiguea to J and s(1). 
WA 'GR' B 


If the value of A is greater than the value of B, W is assigned the 
value 'TRUE'; otherwise, W is assigned the value 'FALSE'. 
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ASSIGNMENT ASSIGNMENT 


ASSIGNMENT, '‘IF' CLAUSE 
Sa LEASE 


To permit a choice to be made as to which of two expressions is to be 
evaluated, based on the value of a Boolean expression; to assign the value of 
the evaluated expression to one or more variables or procedure identifiers. 


Form 


alrage...+an ‘IF’ b 'THEN' e) 'ELSE' e2 


91/42/++.,a,: variables, subscripted variables or procedure identifier 
b: Boolean expression 
€1,€2: arithmetic or Boolean expression 
Rules 
die Subscripts, if any, occurring in the variables ij,a2,...,an evaluated 


from left to right. 
2. The Boolean expression "b" is evaluated. 


ay If the value of b is ‘TRUE! expression, e) is evaluated; if "FALSE', 
e2 is evaluated, 


4. After ©) or e2 is evaluated, this Statement  «perates as a simple 
assignment statement with the evaluated expression, 


£xamples 
i. Pe 'IF' G@ 'LS' 10.0 "PHEN' 1 S + 17.5. 
If Q < 10, P receives the value of R, otherwise $ + 17.5, 
2. A+ Be C+ 'IF' D 'THEN' E 'OK' F 'ELSEt G 'AND' } 


If b is true, the value of E 'OR' F is assigned to A, B, .and C. 
Otherwise, the value of G 'AND' H is assigned. 
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ASSIGNMENT ASSIGNMENT 


ASSIGNMENT, TWO 'IF' CLAUSES 


To permit a choice to be made as to which of three expressions is to be 
evaluated, based on the values of two Boolean expressions; to assign the value 
of the evaluated expression to one or more variables or procedure identifiers. 


Form 


a, -a2~-.-+-+ap_-'IF' by 'THEN' e) 'ELSE' 'IF' by 'THEN' e2 'ELSE' e3 
4 )/42,--++,a,: variables, subscripted variables or procedure identifier 
by, ,bg: Boolean expressions 


€),€2,e3: arithmetic or Boolean expressions 


Rules 
1. Subscripts, if any, occurring in the variables Apr4gre++,8, are 
evaluated from left to right. 
ae The Boolean expression "by" is evaluated. 
3. If b, is true, e, is evaluated; if b, is false, b2 is evaluated. 
4, If b2 is true, e2 is evaluated; if bz is false, e3 is evaluated. 
Si. After an expression is evaluated, this statement operates as a_ simple 
assignment statement with the evaluated expression. 
Example 


R-+'IF' T 'THEN' B-6.2 'ELSE' 'IF' U 'THEN' C-7 'ELSE' D$3.5 


If T is true, R is assigned the value of B-6.2. If Tis false and U is 
true, C-7 is assigned to R, Otherwise, D%3.5 is assigned to R. 


5-5 BSll 


ASSIGNMENT ASSIGNMENT 


ASSIGNMENT, n_'IF' CLAUSES 


To permit a choice to be made as to which of a number of expressions is to 
be evaluated, based on the value of Boolean expressions; to assign the value of 
the evaluated expression to one or more variables or procedure identifiers. 


Form 
al ~ age... -an ‘IF! by 'THEN' e] 'ELSE' ‘IF! bo 
"THEN' €2 'ELSE' ... 'IF' by 'THEN' en 'ELSE' en+) 
4)/42/+++,4n: variables, subscripted variables or procedure identifier 
b),b2,-++,bn: Boolean expressions 
€)/C24+++/@n4yz: arithmetic or Boolean expressions 
Rules 
Le Subscripts, if Any, occurring in the variables @1,a2,..-,an are 
evaluated from left to right. 
2 The Boolean expressions b),b2,...,bn are evaluated from left. to right 
until one is found which has a value of 'TRUE'. 
3. If bj is found to be true, then ej is evaluated. 
4, If all the Boolean expressions are false, @n+) will be evaluated. 
Ss After step 3 or 4 above, this statement operates as a simple 
assignment statement with the evaluated expression. 
Example 


c (pb 4,2,2) - ‘IF' B 'OR' E 'THEN' 5 'ELSE' 'IF' T 'THEN' 
7.5 'ELSE' 'IF' A 'LS' C 'THEN' G 'ELSE' L 


c and D [4,2,2] may be assigned the follow.ng values: 5 if either B or E is 
true; 7.5 if T is true; the value of G if the value of A is less than the value 
of C; the value of L if none of the above condit:ions are true. 


5-6 BS11 


CONDITIONAL CONDITIONAL 


CONDITIONAL, SIMPLE 


To permit a statement to be executed or skipped, depending on the value of 
a Boolean expression, 


Form 


‘IF' b 'THEN' s 
b: Boolean expression 


Ss: statement 


Rules 


ie: Statement s may be any one of the following: 
a. assignment statement 
b. 'GO TO' statement 
Cc. dummy statement. 
d. "FOR' statement 
e. procedure statement 
f. compound statement 
g. block 
zi. Statement s may have a label. 
35 If the Boolean expression has a value of 'TRUE', statement s is 
executed. If s does not explicitly specify its successor, the 


statement following will be executed next. 


4. If the Boolean expression has a value of 'FALSE', statement s is 
skipped and the following statement will be executed next. 
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CONDITIONAL CONDITIONAL 


Examples 


‘IF' A 'GR' B 'THEN' D-E*F 

If the value of A is greater than the value of B, then the value of 
E*F is assigned to D. Otherwise, the assignment statement is skipped 
and the statement following it is executed. 

‘IF' L 'THEN' 'BEGIN' F P+3; R-17.5-T; L-'FALSE' 'END'; 'GO TO' S9 
If L is true, the compound statement enclosed between 'BEGIN' and 


‘END' will be executed; followed by 'GO TO' $9; if L is false, only 
"GO TO' S9 will be executed. 
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f~on 


CONDITIONAL CONDITIONAL 


CONDITIONAL, 'ELSE' 


Form 


To permit a choice to be made as to which one of two specified statements 
is to be executed. The decision is based on the value of a Boolean expression. 


‘IF! 


b 'THEN' s] 'ELSE' s2 


b: Boolean expression 


$),52? statements 


Rules 


The statements s, and sz may be any one of the following: 
a. assignment statement 

b. ‘GO TO' statement 

Cc. procedure statement 


da. dummy statement 


e. compound statement n 

f. block 

Statement s2 may also be a 'FOR' statement. 

Statements s) and s2 may be labelled. 

If the Boolean expression has a value of 'TRUE', statement Ss) is 


executed. If s) does not explicitly specify its successor, then the 


statement following the conditional statement is executed next; i.e., 
s2 is skipped. 


If the Boolean expression has a value of "FALSE', statement s2 is 


executed. If s2 does not explicitly specify its successor the 
statement following the conditional statement is executed next. 
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CONDITIONAL CONDITIONAL 


Examples 


VIPS nN 'LS' B 'THEN' T+T+l 'ELSE' B-B+l; 'GO TO' Ll 


If A is less than B,T~T+l is executed, followed by 'GO TO' Ll. If A 
is greater than or equal to B, B~ B+tl is executed, followed by 'GO TO' 
L. 


‘IF' R 'AND' S 'THEN'’ 'GO T-' BOB "ELSE' JOE: M=N+P; 'GO TO' BOB 
If the expression is true, control is transferred to the statement 


labelled BOB; if false, the statement labelled JOE is executed and 
then control goes to the statement labelled BOB, 
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CONDITIONAL CONDITIONAL 


CONDITIONAL, TWO 'IF' CLAUSES 


To permit a choice to be made as to which of two statements is to be 


executed or whether neither is to be executed, depending on the values of two 
Boolean expressions. 


Form 


‘IF' by 'THEN' sj 'ELSE' 'IF' b2 'THEN' s2 
b],b2: Boolean expressions 


S$] ,S2: statements 


ie Statements s) and s2 may be any one of the following: 
a. assignment statement 
be ‘GO TO' statement 
c. dummy statement 
d. procedure statement 
e. compound statement \ 
£. block 

2. Statement s2 may also be a 'FOR' statement. 

36 Statements s) and s2 may be labelled. 

4. If by has a value of 'TRUE', statement Ss, is executed. If s, does not 
explicitly specify its successor, the statement following the 
conditional statement is executed next. 

5. If b) has a value of 'FALSE', b2 is evaluated. 

6. If b2 has a value of 'TRUE', statement 82 is executed. If s2 does not 
explicitly specify its successor, the statement fcllowing the 
conditional statement is executed next. 

Ds If b2 has a value of 'FALSE', then s2 is skipped and the statement 


following the complete conditional statement is executed next. 
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CONDITIONAL CONDITIONAL 


Example 


‘IF' A 'EQ' B 'THEN' MODE (C,D) 'ELSE' 'IF' A 'GR' B 
"THEN' MEAN (T,D); R- D*F 


If A=B, procedure MODE is executed, followed by R«D*F,. If AB but A>B, 
then procedure MEAN is executed fc" owed by R~D*F, If AcB, then only R=D*F is 
executed. 
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as 


CONDITIONAL CONDITIONAL 


CONDITIONAL, TWO 'I CLAUSES, 'ELSE' 


To permit a choice to be made as to which of three statements is to be 
executed, depending upon the value of two Boolean expressions. 


Form 


‘IF' by 'THEN' s) 'ELSE' 'IF' bg 'THEN' S82 'ELSE' s3 
by,b2: Boolean expressions 


$1/82,83! statements 


1. Statements s,, S2, and s3 may be any one of the following: 
a. assignment statement 
b. 'GO TO' statement 
c. dummy statement 
d, procedure statement 
e. compound statement 
f. block : 

2. Statement s3 may also be a 'FOR' statement. 

3. Statements sj, S82, and sj may be labelled. 

4. If bj has a value of 'TRUE', statement s, is executed. If s} does not 
explicitly specify its successor, the statement following the 
conditional statement is executed next. 

5. If by is false, b2 is evaluated. 

6. If b2 has a value of 'TRUE', statement s2 is executed. If s2 does not 
explicitly specify its successor, the statement following the 
conditional statement is executed next. 

7. If b2 has a value of 'FALSE', statement s3 is executed. If s3 does not 


explicitly specify its successor, the statement following the 
conditional statement is executed next. 
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CONDITIONAL CONDITIONAL 


Example 


'IF' L 'THEN' 'GO TO' BOY 'ELSE' 'IF' R 'GR' s "THEN' 
"BEGIN' A-A+1l; CALC (F,10) 'END' 'ELSE' 'Go TO' CAT; R=R+l 


If L is true, control goes to the statement labelled BOY; if L is false, R 
is compared to S; if R>S, the com,oud statement is executed followed by R= R+l. 
If R<S, control goes to the statement labelled CAT, 
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CONDITIONAL CONDITIONAL 


CONDITIONAL, n ‘IF' CLAUSES 


To permit a choice to be made among a number of statements as which one 


should be executed, or whether none is to be executed, depending upon the value 
of Boolean expressions. 


Form 
‘IF' by) 'THEN' s) 'ELSE' ‘IF! ba 'THEN' s2 'ELSE' ... 
MIF' by-) 'THEN' sp.) ‘ELSE’ 'IF' by 'THEN' sp 
by ,b2,...,bn: Boolean expressions 
$1 /S2,+-+,Sp: statements 
Rules 
1. Each statement s), S2,...,Sp, May be any one of the following: 
a. assignment statement 
b. ‘GO TO' statement 
Cc. dummy statement 
d. procedure statement \ 
e. compound statement 
f. block 
2. Statement sy may be a 'FOR' statement. 
3. Statements sj, S2,...,S, may be labelled. 
4. The Boolean expressions are evaluated in the order by, b2,..., until 


one having a value of 'TRUE' is found. If bj is true, statement sj is 
executed. If statement sj does not explicitly specify its successor, 
the statement following the conditional statement is executed next. 


Ss. If none of the Boolean expressions is true, the statement following 
the complete conditional statement is executed next. 


5-15 BS11 


CONDITIONAL CONDITIONAL 


Example 


true, 


‘IF' M 'THEN' A-A+1 'ELSE' 'IF' N 'THEN' 'GO TO' Rl 
'ELSE' 'IF' P 'THEN' 'FOR' 1 1 'STEP' 1 'UNTIL' 10 'DO' 
A(I) - I; L=M 'oR' P 


If M is true, the value of A is increased by 1. If Mis false and N is 
then 'GO TO' Rl is executed, I* M and N are false and P is true, the 'FOR' 


statement is executed. If M, N andi are all false, the statement L-M 'OR' P 
is executed. ic 


CONDITIONAL CONDITIONAL 


CONDITIONAL, n 'IF' CLAUSES , 'ELSE' 


To permit a choice to be made among a number of statements as to which one 
should be executed, depending upon the value of Boolean expressions, 


Form 
'‘IF' by) 'THEN' 8) 'ELSE' 'IF' b2 'THEN' 82 'ELSE' ... 
‘IF' bn-) 'THEN' sp.) 'ELSE' sp 
by, b2,... : Boolean expressions 
$),52/+++,Spy: statements 
Rules 
1. Each statement sj, S2r+++,Sn May be any one of the following: 


a. assignment statement 


be 'GO TO' statement 
Cc. dummy statement 
d. procedure statement 
e. compound statement : 
f. block 
2. Statement sp may be a 'FOR' statement. 
3. Statements s), S2,...,Sn may be labelled. 
4. The Boolean expressions are evaluated in the order bj, h2,..., until 


one having a value of 'TRUE' is found. If bj is true, statement sj is 
executed, If statement sj does not explicitly specify its successor, 
the statement following the complete conditional statement is executed 
next. 

Bi If none of the Boolean expressions is true, statement s, will be 
executed. If it does not explicitly specify its successor, the 
statement following the conditional statement is executed next. 
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CONDITIONAL CONDITIONAL 


Example 

‘IF! A “THEN' I-I+l 'ELSE' 'IF' B 'THEN' J+J+l ‘ELSE! 

‘IF' C 'THEN' K~K+l 'ELSE' L- L+l; 'IF' D 'THEN' 

‘GO TO' BAD 

If A is true, the value of I is increased by one. If A is false and B is 
true, the value of J is increased sy one. If A and B are false and C is true, 
the value of K is increased by one. if A, B, and C are false, the value of L is 
increased by one. If D is true then 'GO TO' BAD is executed. Otherwise, ‘the 
statement following it is executed. 
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\y 


DUMMY 


DUMMY STATEMENT 


To place a label at a particular point in the program. 


Form 


Rule 


(null form) 


This statement causes no operation. 


COUNT: ; 


COUNT is the label of a dummy statement. 


B3: ; ABC: E+ E+] 
B3 is the label of a dummy statement. 
"BEGIN'...; TOY: ‘END’ 


TOY is the label of a dummy statement. 


DUMMY 


BS1l 


‘FOR' 


"FOR' 


'FOR', EXPRESSION 


To permit a statement to be executed for a specified value of a controlled 


variable. 


Form 


‘FOR' 


VSce- DOM gs 


v: variable or subscripted variable 


e: arithmetic expression 


S: statement 


Rules 


Variable v is called the controlled variable of the 'FOR' statement. 
e represents a, Wales which is assigned to v. 


Statement s may be a simple statement, a compound statement, or a 
block. 


The 'FOR' statement causes the expression e to be evaluated and its 
value assigned to v. Then statement s is executed. 


After statement s is executed with v having the value of e, the 'FOR' 
statement has been executed. If s does not explicitly specify ics 
successor, the statement following the 'FOR' statement is executed 
next. 


After execution of the 'FOR' statement, the value of v is undefined. 


If control is transferred from the 'FOR' statement by a statement 
(within statement s), the value of v is available. 


A 'GO TO' statement outside the 'FOR' statement may not refer to a 
label within the 'FOR' statement. 


'FOR' J=1 'po' ala)~ 0.0 
This statement causes zero to be assigned to location A(i]. 


"FOR' R  2*BOY?t 2 'DO' 'BEGIN' T+ T+l; 
B(R]+-C(R] 'END' 


This statement results in -C[2* Boyt 2] assigned to B(2*ROoYt 2]. Also, 
the value of T is increased by one. 
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"FOR' 'FOR' 
"FOR', 'STEP' CLAUSE 
To permit a statement to be executed repeatedly for a specified initial 
value, increment, and final value of a controlled variable. 
Form 
"FOR' vee) 'STEP' eg 'UNTIL' e3 'DO' s 
v: variable or subscripted variable 
eye ne3! arithmetic expression(s 
s: statement 
Rules 
da Variable v is called the controlled variable of the 'FOR' statement. 
as e€) represents the initial value for v; e2 is the increment of v; e3 is 

the tinal value for v. 

ie Statement s may be a simple statement, a compound statment or a 

&, The first step in the operation of the 'FOR' statement is that v is 
assigned the value of ey: \ 

5. Statement s may be executed a number of times as follows: 

a. A test is made to see if the value of v is beyond the bound 
specified by e3. If it is, statement s will not be executed. The 
statement after s is executed next and the value of v_ is 
undefined. 

b. If v is within the bound, statement s is executed. 

ce If s does not explicitly specify its successor, the value e2 is 
then added to v (i.e., v~-vteg). If the value of e2 is positive, 
this will have the effect of increasing v. If the value of e2 is 
negative, v will be reduced. The process is then repeated at step 
a 

6. If control is transferred from the 'FOR' statement by a statement 

(within statement s), the value of v is available. 

he The value of the controlled variable, the increment ard the final 
value may be changed by statement s. Therefore, they are evaluated 
every time reference is made to them. 

8. A 'GO TO' statement outside a 'FOR' statement May not refer to a label 


within the 'FOR' statement. 


BS1l 


"FOR' 


Examples 


l. 


2. 


3 


"FOR' 


‘FOR' I-1 'STEP' 1 ‘UNTIL' 10 'Do' A(1)~B[z) 

These statements cause B{1] to B[10] to be assigned to A(1] to A{l0). 
'FOR' K+9 'STEP' -2 'UNTIL' 5 'DO! x(k] ~Kt2 

These statements cause 81 vo be assigned to x(9], 49 to be assigned to 
x(7], and 25 to be assigned to x(5). 

'FOR' L~1 'STEP' 1 ‘UNTIL' 5 'DO' ‘BEGIN! - 
‘FOR' A[L]~ 6 'STEP' 1 'UNTIL' 10 "Dot B(A(L)],L]~L 

"END' 

The order of assignments caused by these statements is as follows: 

6 to 10 is assigned to A(1] as 1 is assigned to B(6,1] to B(10,1), 

6 to 10 is assigned to A[2} as 2 is assigned to B(6,2) to B(10,2), 
etc, 

Finally, 6 to 10 is assigned to A(5] as 5 is assigned to B[6,5] to 
Bfl0,st. 
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"FOR' 


'FOR' 


Form 


‘FoR! 


"WHILE' CLAUSE 


To permit a statement to be executed repeatedly for assigned values of a 
controlled variable, with repetition controlled by the value of a Boolean 
expression, 


"FOR' v+e 'WHILE' b 'DO' s 


vi 


e: 


b: 


S: 


Rules 


variable or subscripted variable 
arithmetic expression 
Boolean expression 


statement 


Variable v is called the controlled variable of the 'FOR' statement. 


Statement s may be a simple statement, a compound statement or a 
block. 


This statement causes statement s to be executed repeatedly as long as 
the value of the Boolean expression b is trua. 


This statement operates as follows: 


a. e is evaluated and its value is assigned to v. 
b. The Boolean expression b is evaluated. 
Ce Tf b is true, statement s is executed. If s does not explicitly 


specify its successor, the process is repeated at step a. 

d. If b is false, statement s is not executed and the statement 
following statement s is executed next. The value of v_ is 
undefined in this case. 


If control is transferred from the 'FOR' statement by a 'GO TO! 
statement (within statement s), the value of v is available. 


The values of either e or b may be changed by statement s. 


A 'GO TO' statement outside a 'FOR' statement may not refer to a label 
within the 'FOR' statement. 
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“FOR‘ 


Example 


J+1; 'FOR' I+ J 'WHILE' I 'LS' 10 'DO' 'BEGIN' 
A({I]~1I; J+g+1 ‘END! 


These statements cause 1 to 9 to be assigned to A(1]) to A(9}. 


*FOR' 


BS11l 


"FOR! ‘FOR! 


"FOR' GENERAL 


To permit a statement to be executed repeatedly for various conditions 
governing a controlled variable. 


Form 
"FOR' ve a) ,82,+++,ap 'DO' Ss 
v: variable or subscripted variable 
aya, arithmetic expression, 'STEP' clause, 
or 'WHILE' clause 
statement 
Rules 

1. Variable v is called the controlled variable of the 'FOR' statement. 

as, 41,82,.+-++,4n may be any combination of arithmetic expressions, 'STEP' 
clauses, or 'WHILE' clauses. 

3. s may be a simple statement, a compound statement or a block. 

4. If aj is an arithmetic expression, a 'STEP' clause or a ‘WHILE’ 
clause, the 'FOR' statement operates as previously described, The 
order of operation is Ay Agrees rap 

Example 


'FOR' X+ 3, 2 'STEP' 1 'UNTIL' 5, 70, 60, A 'WHILE' Z, 80 'DO' P(x) 

First, 3 is assigned to X and procedure P(X) is executed. 

Then the 'STEP' clause causes the following action: 2 is assigned to X and 
P(X) is executed. X is stepped by 1 three times causing it to assume the values 
3, 4, and 5. P(X) is executed after each step of X. Next, X is assigned the 
value 70, and P(X) is executed. 

Then X is assigned the value 60, and P(X) is executed. 

The ‘WHILE' clause causes the value of A to be assigned to X. If 2 is true, 
P(X) is executed. This is repeated until 2 becomes false. (The values of A and 
2 may be changed by execution of P(X)). 


Finally, 80 is assigned to X and P(X) is executed. 


‘Go To! ‘co To" 
"GO TO', LABEL 


To interrupt the normal sequence of statement execution by defining 
explicitly the successor of the current statement. 


Form 


'GO TO' a 


a: statement label 


Rules 

ts. The statement, 'GO TO' a, causes control to go to the statement with 
label a. 

2. A 'GO TO' statement outside a 'FOR' statement may not refer to a label 
within the 'FOR' statement, 

Bie A 'GO TO' statement outside a block may not refer to a label within 
that block. 

4. A 'GO TO' statement outside a compound statement may refer to label 


within that compound statement. 


l. ‘GO TO' BOY 
This statement causes control to go to a statement labelled BOY. 


2. "GO TO' T12; M1S: A+A+l; 'IF' L 'THEN' "BEGIN' 
C D*EI2; T12: A-B+C*F 'END' 


The 'GO TO' statement causes control to go to a statement within a 
compound statement. 
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‘GO TO! 


'GO TO', SWITCH DESIGNATOR 


To interrupt the normal sequence of statement execution by causing 
to be transferred to one of a number of possible statements, depending 
value of an arithmetic expression. 


Form 


"GO TO' sw [a] 
sw: switch identifier 


a: arithmetic expression 


‘Go To' 


control 
on the 


Rules 
1. The switch identifier "sw" must have been defined by a switch 
declaration in the current block or in an enclosing block. 
2. The form sw [a] is called a switch designator. 
3. The next statement to be executed is the one whose label is referenced 
through the switch declaration defining "sw". 
4. This 'GO TO' statement operates as follows: 

a. The expression denoted by a is evaluated: From this value an 
integer k is established where k is the result of the function 
ENTIER (a+.5), That is, the largest integer not greater than the 
value of the argument, i.e., if a is 3.7, k=4. 

b. k specifies which element in the list of the switch declaration 
will be referenced; i.e., the leftmost element is numbered 1; the 
next is 2, etc. 

‘cc. If k is not within the range 1 to n (where n is the number of 
elements in the switch designator), control goes to the next 
statement in normal sequence. 

5 A 'GO TO' statement outside a 'FOR' statement may not refer to a label 
within that 'FOR' statement. 

6. A 'GO TO' statement outside a block may not refer to a label within 
that block. 

La A 'GO TO' statement outside a compound statement may refer to a_ label 


within that compound statement. 


BSll 


Example 


‘BEGIN’ 'SWITCH' AB~ PB, QB; 
‘SWITCH' AC+ PC, QC, AB[X]; 


‘GO To! aB(r); 


‘co To' ac(y); 


"END' 


If T has the value 1 when the 'GO TO' for switch AB is executed, control 
goes to the statement labelled PB, If T has the value 2, control goes to the 
statement labelled QB. If T has any other value, control goes to the statement 
following the 'GO TO' statement. When the 'GO TO' for switch AC is executed, 
control will go to statements labelled PC or QC if Y has the value one or two, 
respectively. If Y has the value three, then execution is equivalent to 'GO TO! 
AB[X]. If Y has any other value, control goes to the next sequential statement. 
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‘60 TO! ‘Go To! 


'GO TO', CONDITIONAL DESIGNATOR 


To interrupt the normal sequence of statement execution by causing control 
to be transferred to one of a number of possible statements; the statement 
chosen will depend on the value of a Boolean expression. 


Form 


‘GO TO' ‘IF' b 'THEN' dj 'ELSE' d2 
b: Boolean expression 


dy,d2: designational expressions 


Rules 
ni A designation expression (dj,d2) is any one of the following: 
a. Statement label 
b. Switch designator. This has the form sw[{a], where sw represents a 
switch identifier and a represents an arithmetic expression. 
Gis Conditional designator. This has the form 
‘IF' b 'THEN' c 'ELSE' d 
\ 
where 

b represents a Boolean expressions; 

c may be either a statement label, a switch designator, or a 
conditional designator enclosed within parentheses; 

d may be either a statement label, a switch designator, or a 
conditional designator (not necessarily enclosed within 
parentheses). 

2% This statement operates as follows: 
ae The Boolean expression b is evaluated; 
b. If b is true, control is transferred as specified by 4}. 
Oe If the Boolean expression b is false, control is transferred as 
specified by d2. 
aig A 'GO TO' statement outside a 'FOR' statement may not refer to a label 
within that 'FOR' statement. 
4. A 'GO TO' statement outside a compound statement may refer to a_ label 


within that compound statement. 
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‘co To! 


‘GO TO' 'IF' A 'THEN' B ‘ELSE! c(r) 


If the Boolean expression A is true, control goes to the statement 
labelled B. Otherwise, control goes to the statement referenced by the 
Ith item in the switch declaration defining c. 


‘GO TO' 'IF' BA 'THEN' LA ELSE' ‘IF! BB 'THEN' 
LB 'ELSE' LC 


If the Boolean expression BA is true, control goes to the statement 
labelled LA, If expression BA is false and Boolean expression BB is 
true, control goes to the statement labelled LB. If both expressions 
BA and BB are false, control goes to the statement labelled LC. (Note: 
dj in this case is a statement label while 42 is a conditional 
designator.) 


‘GO TO' 'IF' BA 'THEN' ('IF' BB "THEN' LB 
"ELSE' LC) 'ELSE' LA 


If both BA and BB are true, control goes to the statement labelled LB. 
If BA is true and BB is false, control goes to the statement labelled 
Lc. If BA is false, control goes to the statement labelled LA. (Note. 
dj isa conditional designator, and therefore, must be enclosed in 
parentheses, ) 
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PROCEDURE 


PROCEDURE 


PROCEDURE STATEMENT 


Form 


Rules 


To call for the execution of a procedure defined by a 'PROCEDURE' 
declaration, 


(1) name 
(2) name (a; t ag tt... t ay 
name: procedure identifier 
Ayr Agree +s an? actual parameters 
t: separator 

lis A procedure statement may have no parameters, as shown in Form (1). 

2. When there are parameters (Form (2)), each separator t may be either 
"," or “)b:(" where b is only descriptive; i.e., it may be used as 
comments to describe actual parameters. b has no _ operational 
significance. 

34 The procedure identifier must appear in a procedure declaration. 

4. The number of actual parameters must be the same as the number of 
formal parameters in the procedure declaration. However, the method of 
parameter separation need not be the same in a procedure statement and 
the corresponding declaration. That is, where a comma was used in a 
procedure statement, the form ")b:(" may be used in the declaration 
and vice versa. 

5. 


The actual parameters may be any one of the following: 
a. arithmetic expression 

b. Boolean expression 

c. string 

d. array identifier 

e. switch identifier 

f. procedure identifier 


g. designational expression 
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PROCEDURE 


li. 


Examples 


PROCEDURE 


The correspondence between the actual parameters of the procedure 
statement and the formal parameters of the procedure declaration is by 
their appearance in the respective parameter lists. The two sets of 
parameters must have the same number of items. 


The execution of a procedure statement is as follows: 
a. The formal parameters which appear in a value list of the 


procedure declaration are replaced by the values of the 
corresponding actual parameters, 


b. These actual parameters are evaluated from left to right 
according to their appearance in the parameter list. 

c. Formal parameters which are not part of a value list are replaced 
throughout the procedure by the corresponding actual parameters, 

d. If the identifier of an actual parameter and an identifier 
already in the procedure are the same, adjustments will 


automatically be made to the latter so that no conflicts occur. 
e. After the procedure has been modified as above, it is executed, 


If an actual parameter is a string, it may only be used in a procedure 
written in non-ALGOL code. In an ALGOL procedure, a string may appear 
only as an actual parameter for a further procedure call. 


If a formal parameter is an array identifier, the corresponding actual 
parameter must also be an array identifier of the same dimension. 


A switch identifier or string may not be an actual parameter 
corresponding to a formal parameter which is called by value. A 
procedure identifier may not be used as a value parameter unless it 
designates a function with no arguments. 


HIGHVAL (2, P*(P+1)/2, V, I) 


The procedure which this statement calls is defined in the section 
‘PROCEDURE' declaration, simple. In this procedure statement Z denotes 
the number of elements. The value of the largest element of Z will be 
found in V after the procedure call, and I will contain the value of 
the subscript of the largest element. 


SQUAREROOT (A12+Bt2, .000001, C) 
The procedure which this statement calls is defined in the section 
‘PROCEDURE' declaracion, specification part. After this "procedure 


statement is executed, C will contain the square root of A +B with an 
accuracy of .000001. 
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PROCEDURE 


3. 


PROCEDURE 


TOT (X, A, 1, N, 1/A*(A+1)) 


The procedure which this statement calls is defined in the section 
‘PROCEDURE' declaration, value and specification part. This procedure 
statement will result in the following computation: 


N 
X => 1/A(A+1) 
AE1 


SUM*+ADD (A, I, N) FUNCTION: (1/A* (A+1)) 


The procedure which this statement calls is defined in the section 


* "PROCEDURE' declaration, function definition. This function call will 


result in the summation of example 3 in ADD and in SUM. The = symbol 
FUNCTION is used as text and has no operational significance. 


SUM ADD(P,Q,N*(N+1), ADD(Q,1,N,P/Q)) 


This statement results in the value of the following computation 
placed in ADD and in SUM: 


N(N+1) N 
d P/O 
P=Q Q=1 


This is an example of a recursive procedure call. 
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SECTION VI 


DECLARATIONS 


DESCRIPTIVE FORMAT 


The description of each declaration in the ALGOL language is presented in 
this Section. Each declaration description starts on a new page, with the format 
of its descriptive material given as shown below: 


Descriptive name 


(A brief statement of the purpose of the declaration) 


Form 


(Form of the declaration) 
(Definition of symbols used in the form line) 


Rules 


(A list of rules governing the correct 


usage of the declaration; 
includes restrictions, suggestions, etc.) 


Examples 


(A list of examples illustrating the use of the declaration) 
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"ARRAY' 


"ARRAY' 


"ARRAY! 
To specify array identifiers, dimensions, bounds of subscripts and array 
types. 
Form 
type 'ARRAY' Apr Agre se rAy 
type: type word 
4) 742,-++,ap? array specifier (s) 
Rules 
1. The type word may be any one of the following: 
a. ‘INTEGER' 
b. "REAL! ) 
c. "EXTENDED REAL' 
qd. "BOOLEAN' 
2. Type is optional. If it is not used, 'REAL' is assumed. The type is 
assigned to each array identifier in the declaration, 
Sie An array specifier may be either of the form b or blc), where b 
represents an array identifier and c represents a dimension specifier. 
A dimension specifier has the form dj: e),d2: e2,...,dn: en, where 
each dy and ej may be an arithmetic expression. n is the number of 
dimensions. dj and ej represent the lower and upper subscript bounds 
of dimension i, respectively. The value of a lower bound may not 
exceed the value of an upper bound. 
4. If an array identifier does not have a dimension specifier, the next 
dimension specifier is assigned, That is, the form b},b2,...,bn [d]: 
e1, 42: @2,--.,dn: en] is equivalent to the form bj, [d}: ej, dl: 
e2,+--,dni en}, b2 (dy: ey, dg: Cgy-++1dyt Cn)r-++ by [dys ey, dQ: 
C2r+++/dpi en). 
ay Lower and upper bounds will be evaluated from left to right. The 
bounds can only depend on variables and procedures which have been 
defined in a block enclosing the block for which the array declaration 
is valid. Consequently, in the outermost block of a program, only 
array declarations with constant bounds may be used. 
6. The bounds will be evaluated each time the block is entered. 
Te Every array used in a program must appear in an array declaration. 
8. An array identifier may not appear with subscripts whose values do not 


lie within the bounds specified by the array declaration. 
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"ARRAY' 


Examples 


1. 


"ARRAY' 


"ARRAY' A[1:10] 


The array A is one-dimensional and has a lower subscript bound of 1 
anc an “pper subscript bound cf 10. A is assumed to be of 'REAL' type. 


"ARRAY' A,B [1:10,1:201 


Arrays A and B are iwo-dimensicnal and have subscript bounds 1 and 10 
and 1 and 20. The arrays are assumed to be 'REAL' type. 


‘INTEGER’ 'ARRAY' A(P:Q}, B (1:2*P, 3:5, 1:5] 
The array A is of 'INTEGER' type and has subscript bounds P and Q. B 


is of 'INTEGER' type and is three-dimensional. The bounds of the 
dimensions are 1 and 2*P, 3 and 5, and 1 and 5, respectively. 
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"ARRAY', ‘OWN! 


To specify array identifiers, dimensions, bounds of subscripts and array 
types; also to specify the condition of arrays upon re-entry into a block. 


Form 


‘OWN' type 'ARRAY' a),89,-++s8p 
type: type word 


A),a2,6++/ant array specifier(s 


Rules 
l. The array specifiers may be in any of the forms permissible for the 
array declaration. 
2. All the ruled which pertain to array declarations are valid for the 


‘OWN' array declaration except: 


a. On re-entry into the block in which the 'OWN' array declaration 
appears the array elements will have their previous values. 


b. The subscript bounds must be integer constants. 


3. When exit is made from the block (by 'END' or by a 'GO TO’ statement), 
the identifiers are inaccessible even though their values have been 
saved. 


Example 


‘OWN' 'BOOLEAN’ 'ARRAY' BA(1:20, 5:15, 1:10] 


The array BA is three-dimensional and is of *BOOLEAN' type. The bounds of 
the dimensions are 1 and 20, 5 and 15, and 1 and 10, respectively. 
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'PROCEDURE' DECLARATION, SIMPLE 


To define a statement or series of statements as being associated with a 
procedure identifier; to provide a means by which a procedure may be executed 
any number of times in the course of a program although the steps of the 
procedure appear only once. 


1) 'PROCEDURE' name; s 
2) 'PROCEDURE' name (a, t a2 t ... t an); 8 
name: procedure identifier 
€1/42,++++4pn: formal parameters 
t: separator 


s: statement 


Rules 
oa A procedure declaration may have no parameters, as shown in Form (1). 
26 When there are parameters (Form (2)), each sdparator t may be either 
"," or ")b:(" where b represents any sequence of letters. The function 
of b is only descriptive, i.e., it may be used as comments to describe 
actual parameters. b has no operational significance. 
Bs, The formal parameters may be any of the following: 


a. variable 
be array identifier 
c. switch identifier 
da. label 
e. procedure identifier 
4. The formal parameters usually appear somewhere in statement s. They 


will be replaced by or assigned the values of the actual parameters of 
the particular procedure statement which calls the procedure. 


5. Statement s may be 
a. a simple statement 
b. a compound statement 


ce. a block 
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6. Identifiers which are not formal parameters may appear in s if either 
of the following conditions exists: 


a. s is in the form of a block and the identifiers are declared at 
the beginning of this block. 


b. the identifiers are declared in the block in which the procedure 
declaration appears. 


Ts Statement s always acts like a block insofar as the scope of its 
identifiers is concerned; i.e., a label appearing in s is not defined 
outside the procedure declaration. . 


8. The procedure specified may be executed anywhere in the block in which 
the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters, if any. 


Example 


"PROCEDURE' HIGHVAL (A,N) ANS: (X,Y)7 
‘BEGIN’ 
x-a(l]; Yo1s "FOR! I-2 'STEP' 1 'UNTIL' N 'DO' 


‘yF' A(I] 'GR' X "THEN! 
‘BEGIN' . 
X-A(I]; YI 
‘END' 
"END' 
This procedure determines the largest element of an array. Input formal 


parameters are: array identifier A and number N of elements. Output formal 
parameters are: value X of largest element and value Y of subscript of largest 
element. The symbol ANS is used as text and has no operational significance. 
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'PROCEDURE' DECLARATION, SPECIFICATION PART 


To define a statement or series of statements as being associated with a 
procedure identifier; to provide a means by which a procedure may be executed 
any number of times in the course of a program although the steps of the 


procedure appear only once; to specify the kinds of quantities actual parameters 
may represent. 


Form 
"PROCEDURE' name (ay t ag t... t an) 
sp list; sp list;...; sp list; s 
name: procedure identifier 
Apragree sant formal parameters 
t: separator 
sp% specifier 
list: formal parameters separated 
by commas 
s: statement 
Rules : 
i. Each separator t may be either "," or ")b:(" where b represents any 
sequence of letters. The function of b is only descriptive; i.e., it 


may be used as comments to describe actual parameters. b has no 
operational significance. 


2. The formal parameters may be any of the following: 
a. variable 
b. array identifier 
c. label 
d. switch identifier 
e. procedure identifier 
3. The formal parameters usually appear somewhere in statement s. They 


are replaced at the time of execution by the actual parameters of the 
procedure statement. 
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4. 


10. 


The specifiers may be any of the following: 


"ARRAY ' “INTEGER' 'ARRAY' 
"BOOLEAN' "PROCEDURE" 
"BOOLEAN' 'ARRAY' 

"BOOLEAN' 'PROCEDURE' "PROCEDURE’ 

"EXTENDED REAL‘ "REAL" 

“EXTENDED REAL' 'ARRAY' "REAL' 'ARRAY' 
"EXTENDED REAL' 'PROCEDURE' "REAL' 'PROCEDURE' 
"INTEGER' "STRING' 


"SWITCH' 


The specifiers indicate for the parameters in their "list" what form 
the corresponding actual parameters should take. (Note: '‘INTEGER', 
‘"REAL', and 'EXTENDED REAL' may be used interchangeably and the proper 
transformations will take place automatically.) 


A formal parameter may appear in no more than one "list." However, a 
formal parameter need not appear in a "list," except for switches 
which must be specified. 


Statement s may be 


a. a simple statement 
be a compound statement 
ce. a block 


Identifiers which are not formal parameters may appear in s if either 
of the following conditions exists: 


a. s is a block and the identifiers are declared at the beginning of 
this block. 
b. the identifiers are declared in the block in which the procedure 


declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers is concerned; i.e., a label appearing in s is not defined 
outside the procedure declaration. 


The procedure specified may be executed anywhere in the block in which 


the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters. 
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Example 


"PROCEDURE' SQUAREROOT (X,E,S) 7 
‘REAL’ X, E, S! \ 
‘BEGIN' 'REAL' SA; 

‘IF’ X 'LS' 0 'THEN' 

"BEGIN' S$--1; 'GO TO' B 'END'; 

SA-1; 

A: S= (SA+X/SA)/2; 

‘IF' ABS(SA-S) 'GR' E 'THEN' 

'BEGIN' SA-S; 'GO TO' A 'END'; 

B: 'END' 


This procedure computes the square root. Input formal parameters are: 
number X whose square root is wanted and accuracy E. Output formal parameter is 
square root S of xX. 
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'PROCEDURE' DECLARATION, VALUE AND SPECIFICATION PART 


To define a statement or series of statements as being associated with a 
procedure identifier; to provide a means by which a procedure may be executed 
any number of times, in the course of a program although the steps of the 
procedure appear only once; to specify which formal parameters are replaced by 
the value of the corresponding actual parameters; to specify the kinds of 
quantities actual parameters may represent. 


Form 


"PROCEDURE' name (a; t a7 t ... t ap) 


"VALUE' list; 


sp list; sp list;...; sp list; s 
name: procedure identifier 
Ayr agrees sant formal parameters 


ts separator 
sp: specifier 
s: statement 


list: formal parameters separated 
by commas 


Rules . 
oe Each separator t may be either "," or ")b:(" where b represents any 
sequence of letters, The function of b is only descriptive; i.e., it 


may be used as comments to describe actual parameters. b has no 
operational significance. 


2. The formal parameters may be any of the following: 
a. variable 
b. array identifier 
c. label 
d. switch identifier 


e. procedure identifier 
Be The formal parameters usually appear somewhere in statement s. They 


are replaced at the time the procedure is called upon by the actual 
parameters of the procedure statement. 
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10. 


ll. 


12. 


However those formal parameters which are listed in the 'VALUE' part 
of the declaration are assigned the current values of the 
corresponding actual parameters before statement s is executed. The 
order of assignment is from left to right according to the order of 
appearance in the formal parameter list. 


The specifier may be any of the following: 


"ARRAY' ‘INTEGER' 'ARRAY' 
"BOOLEAN' ‘INTEGER' 'PROCEDURE' 
"BOOLEAN' 'ARRAY' "LABEL' 
"BOOLEAN' 'PROCEDURE' "PROCEDURE" 
‘EXTENDED REAL' "REAL" 
"EXTENDED REAL' 'ARRAY' "REAL' 'ARRAY' 
"EXTENDED REAL' ‘PROCEDURE! "REAL' 'PROCEDURE' 
‘INTEGER' "STRING' 

"SWITCH' 


The specifiers indicate, for the parameters in their list, what form 
the corresponding actual parameters should take. (Note: ‘INTEGER’, 
‘'REAL' and ‘EXTENDED REAL' may be used interchangeably and the proper 
transformations will be made automatically.) 


A formal parameter may appear in no more than one specification list. 
However, a formal parameter need not appear in a list, except for 
switches which must be specified. 


A formal parameter appearing in the 'VALUE' list must also appear in 
one of the specification lists. 


Statement s may be: 


a. a simple statement \ 
be a compound statement 
c. a block 


Identifiers which are not formal parameters may appear in s if either 
of the following conditions exists: 


a. s is a block and the identifiers are declared at the beginning of 
this block. 


be the identifiers are declared in the block in which the procedure 
declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers is concerned; i.e., a label appearing in s is not defined 
outside the procedure declaration. 


The procedure specified may be executed anywhere in the block in which 
the declaration appears by writing a procedure statement containing 
the procedure identifier and the actual parameters. 
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Example 


"PROCEDURE' TOT (T,K,L,M,U); 
"VALUE' L,M; 'INTEGER' L,M; 
'BEGIN' 
T+0; 
'FOR' K~L 'STEP' 1 'UNTIL’ M ‘DO! 
T+ T+U 
‘END! 


This procedure computes the sum of values of a function U between the 
limits of summation L and M. The function U may depend on the summation index k,. 
The sum is generated in formal parameter T. 
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"PROCEDURE' DECLARATION, FUNCTION DEFINITION 


To define a statement or series of statements associated with a specific 
procedure identifier as being a function; to provide a means by which the 
appearance of the procedure identifier will cause the function to be performed 
and a value to be given to the identifier although the steps of the function 
appear only once. 


Form 
(1) type 'PROCEDURE' name; s 
(2) type 'PROCEDURE' name (a, t ag t ... t an)is 
(3) type 'PROCEDURE' name (a, t ag t ... t an)i 
sp list; sp list;...; sp list; s 
(4) type 'PROCEDURE' name (a) t ag t ... t an); 
'VALUE' List; 
sp list; sp list;...; sp list; s 
type: type word 
name: procedure identifier 
ay agrs 74y,: formal parameters 
t: separator \ 
sp: specifier 
s: statement 
list: formal parameters separated 
by commas 
1, A procedure declaration may have no parameters, as shown in Form (1). 
zy When there are parameters (Forms (2), (3), and (4)), each separator t 


may be either "," or ")b: where b represents any sequence of 
letters. The function of b is only descriptive; i.e., it may be used 
as comments to describe actual parameters. .b has no _ operational 
significance. 
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10. 


ll. 


The type word may be any of the following: 


a. "INTEGER! 

b. ‘BOOLEAN’ 

c. ‘REAL' 

d. "EXTENDED REAL' 


The type word identifies the type of the procedure identifier. 


At some point in the procedure body, i.e., in statement s, the 
procedure identifier must appear on the left side of an assignment 
statement. When this statement is executed, the function receives a 
value, and it is this value which jis used when the procedure 
identifier appears in an expression, The function receives a value 
according to the type specified by the type word. 


The procedure identifier may appear on the left side of any number of 
assignment statements. It is the last one to be executed from which 
the function receives its value. 


The formal parameters may be any of the following: 


a. variable “4 

b. array identifier 

ce. label ) 
da. switch identifier 

e. procedure identifier 


The formal parameters usually appear in statement s, They are replaced 
at the time the procedure is called upon by the actual parameters of 
the function call. 


There may or may not be a ‘VALUE' declaration in a function 
definition. If there is, the rules which apply are the same for all 
procedure declarations. 


The specifiers which may be included, and the rules which apply are 
the same for all procedure declarations. 


Statement s may be 


a. a simple statement é 
b. a compound statement 
c. a block 


Identifiers which are not formal parameters may appear in s if either 
of the following conditions exist: 


a. s is a block and the identifiers are declared at the beginning of 
this block. 
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13. 


Examples 


1. 


b. the identifiers are declared in the block in which the procedure 
declaration appears. 


Statement s always acts like a block insofar as the scope of its 
identifiers is concerned, i.e., a label appearing in s is not defined 
outside the procedure declaration. 


The function which this declaration defines may be executed anywhere 
in the block in which this declaration appears by writing in an 
arithmetic or Boolean expression, the procedure identifier, and the 
actual parameters, if any. 


"REAL' 'PROCEDURE' ADD (K,L,M,U); 
"BEGIN' 'REAL' W; 

W- 0; 

'FOR' K+ L 'STEP' 1 'UNTIL' 

M 'DoO! 

We W+U; 

ADD ~ W 

‘END! 


This function computes the sum of values of a function U between the 
limits of summation L and M. The function U may depend on _ the 
summation index K. Upon exit from the function, the sum is contained 
in ADD which is of type 'REAL'. 


‘INTEGER' 'PROCEDURE' FACT (X); 
‘IF' X 'EQ' 1 'THEN' FACT*=1 'ELSE' \ 
PACT + X*FACT(X-1) 


This is an example of a recursive procedure declaration. Execution of 
FACT(2) causes FACT(1) to be executed because of the statement 
FACT + 2* FACT(1). Then FACT will have the value 2*1. Execution of 
FACT(3) causes FACT to have the value 3*2*1, If this procedure is 
called n times, FACT will have the value n factorial. 
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"PROCEDURE' DECLARATION, SEPARATELY COMPILED 


provide a technique for communicating with separately compiled 


procedures. 
Form 
(1) "CODE 
(2) 'CODE' 'BEGIN' dy;d2;...7dp 'END' 


dy d2,e-+ dy? code declarations 


Rules 


Form (1) or Form (2) above are to be used in a procedure declaration 
in place of statement s when it is desired to write a procedure 
outside an ALGOL program. The procedure may be written either as a 
separately compjled ALGOL program or as a procedure compiled in some 
other language la.gs2 GMAP) . 


Each dj may have any one of the following forms: 
a. ‘OWN' type 'ARRAY' a},42,-++/4n 


where type and aj,a2, ,an have the same meaning as described 
under Array declaration, 'OWN'. This code declaration declares 
‘OWN' arrays whose storage will be reserved in the declaring 
program but whose identifiers will be valid only in the 
separately compiled procedure. 


b. ‘OWN' type VyrV2r-++7Vn 
where type and v1,V2,-.+,Vn have the same meaning as described 
under Type declaration, 'OWN'. This code declaration declares 


‘OWN' variables whose storage will be reserved with the declaring 
program but whose identifiers will be valid only in the 
separately compiled procedure, 


c. 'NONLOCAL' aj,42,-+-+an 
where a],42,++-,4n May be any of the following: 
1) variable 
2) procedure identifier 


3) array identifier 
4) switch identifier 


5) label 
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Example 


This code declaration makes the specified identifiers of the 


declaring procedure available to the separately compiled 
procedure. 


The procedure identifier of a separately compiled procedure and all 
the identifiers specified in a, b, and c above must be unique in 6 
characters. (A character is either a letter or a digit.) 


For all procedures defined as 'CODE', a SYMREF will be produced in the 
declaring program. 


SYMDEFS will be produced for all 'OWN' variables and arrays. In the 
case of an 'OWN' variable, the SYMDEF will point to the storage 
location for the variable; in the case of an 'OWN' array it will point 
to the first word of the alpha vector for the array. 


There will be a SYMDEF associated with each entry in a  'NONLOCAL' 
list. 


a. For a procedure identifier, the SYMDEF will point to the entry 
location of the procedure. 


b. For a switch identifier, the SYMDEF will point to the entry 
location for the body of code which evaluates the switch. 


Cc. For a variable identifier, the SYMDEF will define either the 
absolute location or the stack relative location of the variable, 
depending on whether the variable is nonprocedural or procedural 


a. For a label, the SYMDEF will point to the location of the label. 


e. For an array identifier, the SYMDEF will point to the first word 
in the alpha vector for the array. The pointer will be absolute 


or stack relative, depending on the point of definition of the 
array. 


The user of a 'CODE' procedure is completely responsible for proper 
manipulation of the stack pointer, for setting of the available space 


pointer, and for correct usage of the various ALGOL constructs made 
available to him, 


It is possible to remap the internal name of a separately compiled 
procedure into a different set of 6 or fewer characters which will be 
used as its SYMREF. This is accomplished with the ALGOL word 'RENAME' 
followed by a string containing the desired external name. This 
construct follows the formal parameter list and precedes the word 
'CODE'. The 'RENAME' string may consist of any combination of 6 or 
fewer characters and/or decimal points. . 


‘PROCEDURE' INPUT 0 (a, string); 'RENAME'".AOIPT\; 'CODE' 
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WITCH' DECLARATION 


To set up a list of statement labels and/or switch designators which will 
be referred to by subsequent 'GO TO' statements. 


Form 
"SWITCH' sw~d),d2,...,dp 
sw: switch identifier 
4) ,dg,-.-,d,: designational expression(s) 
Rules 

l. This statement defines the switch identifier sw as being associated 
with a list of designational expressions separated by commas. 

2s. A designational dxpression (dj) is any one of the following: 

a. a statement label 
b. a switch designator. This has the form sw(a], where sw represents 
a switch identifier and a represents an arithmetic expression. 
co a conditional designator. This has the form 
‘IF' b 'THEN' c 'ELSE' d 
where 
b represents a Boolean expression; 
c may be either a statement label, a switch designator or a 
conditional designator enclosed within parentheses; 
d may be either a statement label, a switch designator, or a 
conditional designator (not necessarily enclosed within 
parentheses) . 

36 Each designational expression is identifier by a positive integer - 
the leftmost with 1, the next with 2, etc. 

4. When a 'GO TO' statement involving a switch designator is encountered 
in the program, the subscript of the switch designator is given an 
integral value. It is this value which determines which element of the 
list is referenced. 

5. If the list item referenced is a conditional designator, the 'IF' 


clauses are evaluated until a designational expression involving only 
a label or a switch designator is reached, 
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6. If the list element referenced is a label, it specifies directly the 
next statement to be executed. 


Ns If the element is a switch designator, it in turn references another 
'SWITCH' declaration, The subscript of the switch designator is 
evaluated to locate the correct list element of the new ‘SWITCH’ 
declaration. 


8. This process may be repeated through any number of "SWITCH' 
declarations until reference is made directly to a statement label. 


9. Each time an element in the list of a 'SWITCH' declaration is 
referenced, any expressions the element may contain are re-evaluated. 


Example 


'SWITCH' BA~ PA, 'IF' S 'THEN' PB 'ELSE' PC, AC(X] 


This switch may be called by a statement such as 'GO T0' BA(D]) which 
operates as follows: If D has the value 1, operation is equivalent to operation 
of 'GO TO' PA, where PA is a statement label. If D has the value 2, operation is 
equivalent to operation of 'GO TO' 'IF' S 'THEN' PB 'ELSE' PC, where S is a 
Boolean expression and PB and PC are statement labels. If D has the value 3, 
operation is equivalent to operation of 'GO TO' AC[X] where AC is a_ switch 
identifier and X is an arithmetic expression, If D has any other value, the 
statement following the 'GO TO' is executed next. 
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TYPE 


TYPE DECLARATIONS 


To specify which variables represent integer, real, extended real, or 
Boolean quantities. 


Form 
type Vp +Vareee0Vn 
type: type word 
V1LiV2ree+0%ni Variable(s) 
Rules 
l. The type word may be one of the following: 
"REAL', 'EXTENDEP REAL', 'INTEGER', or 'BOOLEAN'. 
The type word specifies the type of the variables v),V2,-+++1py- 

2: Each variable used in a program must be declared in a type 
declaration. 

on No variable may appear in more than one type declaration in a _ single 
block. 

4. The type declaration is valid only for the block in which the 
declaration appears. Outside this block the identifiers may be used 
for other purposes, 

Bis The type declaration is valid for any blocks contained within the 
block containing the type declaration. However, variables may be 
redeclared in sub-blocks, in which case the previous declaration is 
superseded. 

6. When exit is made from a block (by 'END' or by a 'GO TO' statement) 


all identifiers which were declared for the block are undefined. 
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Example 
‘BEGIN' ‘INTEGER' P,Q; 'INTEGER' 'ARRAY' S(1:5]; 
P-3; Q-2;3 
'BEGIN' 'REAL' P,R; 
R-Q; 
P-l; 
s(l] -P; 
$13} -Q3 
s{3] -R 
'END'; 
s{4] -P; 
s{s] -Q 
‘END! 


These statements assign the numbers 1,2,2,3,2 in this 
the array S. 


TYPE 


order tc elements of 


BS1l 


TYPE 


TYPE, 


To specify which variables 


TYPE 


‘Own! 


represent integer, real, extended real, or 


Boolean quantities; to provide a means for retaining previous values of certain 
variables upon re-entry into a block. 
Form 
‘OWN’ type V),V2re%-9Vn 
type: type word 
VyiV2re+++Vni variable(s) 
Rules 
1s. The type word may be one of the following: 
\ 
"REAL', ‘EXTENDED REAL', 'INTEGER', or 'BOOLEAN'. 
The type word specifies the type of the variables v),v2,.-++Vp: A, 

2's Each variable used in a program must appear in a type declaration. . 

3 No variable may appear in more than one type declaration in a single 
block. 

4. Only variables whose values are to be preserved for possible re-entry 
into a block should be specified by an 'OWN' type declaration. All 
other variables should be declared in a regular type declaration. 

5. The variable identifiers declared in any type declaration are defined 
only for the block in which they appear. Outside the block the 
identifiers may be used for other purposes. 

6. When an exit is made from a block (by 'END' or by a 'GO TO' statement) 
the identifiers are inaccessible although their values have been 
saved. 

Example 
B: "BEGIN' 'REAL' C; 'OWN' 'REAL' D; 
‘IF' A 'EQ' 6 'THEN' 
"BEGIN' 
oe ae Os 
D-8; 
A-9; 
"GO TO' E 
"END'; 
A~-D-2 
"END'; 
E: ‘IF' A 'NQ' 6 'THEN' 'GO TO' B . 
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TYPE TYPE 


During the first execution of block B, 7 is assigned to C, 8 is assigned 
D and 9 is assigned to A. Execution of the conditional statement: labelled 
causes block B to be executed again. During this execution, A is set to 
because the previous value of 'OWN' variable D is saved. However, variable 
could not be used in this way because not being 'OWN', its value is not saved. 
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‘LINK' "LINK? 


"LINK' DECLARATION 


To permit separate compilation of parts of a program while retaining the 
"environment" of the entire program; to allow different parts of a program to 
occupy the same area of storage at object execution time. 


Form 
"LINK' s; 
s: string 
Rules 

1. Links may be blocks, procedures, or function procedures. 

2. Links may have sublinks which may have sublinks, etc. 

3. Links must be sefparately compiled. 

4. All identifiers which would have been known to a link, had its . coding 
appeared in the program, will be known to the link without special 
indication. 

Note. Currently the one exception is a code-body procedure. This must 
be redeclared in the link. 

5. fhe declaration for a block link is: 

'BEGIN' 'LINK' "NAME\; ‘END! 
The declaration for a procedure link is: 
*PROCEDURE' ABC (X,Y); 'LINK' "NAME\; 

6. The string following the declarator 'LINK' may contain up to five 
alphanumeric characters. (A period may also be used.) 

Be The name following 'LINK' must be unique within a program. Here a 
program means a main program plus all links and sublinks pertaining to 
it. 

8. For a link compilation, the first basic symbol must be 'LINK'. This 
must be followed by the name string which appeared in the declaring 
program. 


For a block link compilation: 


"LINK' "NAME\; 'BEGIN' declarations and statements 
‘END' 


6-24 BSll 


"LINK' 


1s. 


12. 


13. 


14. 


"LINK" 


For ‘a procedural link compilation: 
"LINK' "NAME\; 'PROCEDURE' 


‘OWN' declarations are allocated storage in the declaring program. It 
is the programmer's responsibility to ensure that 'OWN' values, which 
are to be saved, are not overlayed by another link. 


No special calling sequence is necessary to invoke a block link or a 
procedure link. 


For programs which are links or which contain link declarations, a 
link file (file code LF) must be provided with a GCOS file control 
card. This file may be assigned to magnetic tape, linked disk, or 
linked drum, " 


When compiling a link the environment of the main program must be 
known to the link. This is provided by the link file LF. This means 
that the link file which was prepared by a program in which a link was 
declared must be used when that link is compiled. 


The name following 'LINK' is the name which will appear on the $ LINK 
control card. 


A $ ENTRY control card must also be provided for each link. The name 
on this card must be the 'LINK' name preceded by a period. 
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"LINK' 


Example 


wun nan 


noun 


nnnn 


nnn 


OPTION ALGOL 
ALGOL 

DISC _LF,X1S,5L 
"BEGIN' 


'BEGIN' 'LINK' “NAMEA\; 'END'; 
‘BEGIN' 'LINK' "NAMEB\; ‘END'; 


‘END! 

LINK NAMEA 
ALGOL 

DISC _LF,X1S,5L 
‘LINK' "NAMEA\; 
‘BEGIN’ 


"PROCEDURE! ABC; 'LINK' "NAMEC\; 


‘END’ 

ENTRY .NAMEA a) 
LINK | NAMEC 

ALGOL 

DISC LF,X1S,5L 
"LINK! "NAMEC\; 
'PROCEDURE' ABC; 'BEGIN'....'END! 
ENTRY , NAMEC 

LINK NAMEB,NAMEA 
ALGOL 

DISC _LF,X1R,5L 
"LINK' "NAMEB\; 
"BEGIN" 


"END' 
ENTRY. NAMEB 
EXECUTE 
TAPE H*,X1R 


"LINK" 


BS11 


<x ‘LINK! 


These would appear in memory at execution time as 


Main program plus 


library routines 


Link NAMEA 


Link NAMEB 


Link NAMEC 


Link NAMEC is a sublink of link NAMEA. When link NAMEB is called, it would 
overlay memory occupied by links NAMEA and NAMEC. 
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SECTION VII 


COMPOUND STATEMENT AND BLOCK 


DESCRIPTIVE FORMAT 


The description of the compound statement and block is presented in this 
Section. Each description starts on a new page, with the format of its 
descriptive material given as shown below: 


Descriptive name 


(A brief statement of the purpose of the statement) 


Form 
(Form of the statement) 
{ (Definition of symbols used in the form line) 


Rules \ 


(A list of rules governing the correct usage of the statement; includes 
restrictions, suggestions, etc.) 


Examples 


(A list of examples illustrating the use of the statement) 


7-1 BS1l 


COMPOUND S' 


COMPOUND S' 


To pe 
act as a ul 


Form 
"BEGI 
Bue Fg 
Rules 


1. 


STATEMENT COMPOUND STATEMENT 
TATEMENT 
rmit a series of statements to be joined together in such a way as to 


nit. 


N' $);S97..+78, 'END' 


statements 


A compound statement may have a label and may contain any number of 
statements (sj). 


Each statement $1 +S27-+++/Sp May be 
a. a simple statement 

b. a compound statement 

c. a block 

Each statement may have a label. 


A 'GO TO' statement may transfer control to a statement within a 
compound statement. 


Ie-1l; 
T: ‘IF’ I 'LQ' 19 ‘THEN! 
"BEGIN! 
A(I) -I; 
I=-I+l; 
'Go TO' T 
‘END! 


These statements assign the numbers one to ten to elements of the 
array A. This example contains a compound statement as the true branch 
of a conditional statement. 
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a 


COMPOUND STATEMENT COMPOUND STATEMENT 


2. 'FOR' I-1 'STEP' 1 'UNTIL' 10 'DO! 
‘BEGIN’ 
'FOR' J-1 'STEP' 1 'UNTIL' 10 'DO' 
‘BEGIN' 
‘IF' I 'EQ' J ‘THEN’ 
"BEGIN' 
B[I,J] -1; 'Go TO' Ss 
"END'; 
B(I,g) - 0; 
S: ‘END! 
TEND! 


These statements generate a ten by ten unit matrix in the array B. 
Each 'FOR' statement has a compound statement as its object. Also, the 
true branch of the 'IF' statement is a compound statement. 
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BLOCK 


BLOCK 


Form 


BLOCK 


To permit statements and declarations to be grouped together in such a way 
as to be independent of other parts of a program, This permits labels and 
identifiers to be used in different sections of a program without conflicts. 


'BEGIN' dj ;d2; ++etGn7 8] 7897 


+?Sp ‘END! 


dy,d2,... dy: declarations 


$1,S2,+++,Sp? Statements 


Rules 


A block may have a label, and may contain any number of declarations 
and statements. 


Each statement 8} ,85,.. Sy May be 


a. a simple statement 
b. a compound statement 
c. a block 


Each statement may have a label. 


When a block is entered through 'BEGIN', the identifiers which are 
declared for the block are newly defined and lose any significance 
they may have had prior to entry. 


All labels within a block are local to the block and may not be 
referred to from outside. 


When exit is made from a block, all identifiers which were declared 
for the block are undefined and may be used for other purposes, 
including those declared as 'OWN'. 


If a declaration is prefaced with 'OWN', the identifiers so defined 
will retain their previous values upon re-entry into the block. If 
‘OWN' is not specified, the values will be lost when exit is made from 
the block and will be undefined upon re-entry. 


All identifiers used in a program must be declared in one of the 
blocks comprising the program, No identifier may be declared more than 
once in a single block. 


If blocks are nested, a statement label has meaning only in the 
smallest block containing that statement. 
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BLOCK BLOCK 


'"BEGIN' 'REAL' X,Y; 'ARRAY' A(1:5]; 
Xe1l; Y= 2; 
"BEGIN' 'REAL' X,2; 
Z-Y; 
X-3; 
A(l) - x; 
A(2)~¥; 
A(3) -2 
‘END! 
A(4)-X; 
A(5)-¥ 
"END! 


These statements assign the numbers 3,2,2,1,2 in this order to elements of 
the array A. 
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SECTION VIII 


INPUT/OUTPUT 


INPUT/OUTPUT PROCEDURES 


The ALGOL language itself provides no input/output statements. However, 
the ALGOL compiler contains within it a number of procedures which handle the 
I/O. All a programmer need do is to call the existing procedures using an ALGOL 
procedure statement, and through the procedure parameters, transmit the 
information required for the input and/or output process. 


The procedure identifiers used by ALGOL are reserved and act as though declared 
in a block enclosing the program. If a programmer redeclares one of these 


identifiers in his program his declaration supersedes the standard definition. 
The procedures provided are listed below: 


e Procedures pertaining to the layout of the I/O information on the 
external device: 


BAD DATA 

FORMAT 

FORMAT n  (n=0,1,2,...,9) 

HEND 

HLIM 

NO DATA 

TABULATION 

VEND \ 
VLIM 


e Procedures dealing with the actual transmission of data: 


INLIST 
INPUT n (n=0,1,2,...,9) 
OUTLIST 
OUTPUT n (n=0,1,2,...,9) 


e Procedure allowing fine control over the input and output processes: 


SYSPARAM 
° Primitive procedures: 


INSYMBOL 
LENGTH 

NAME 
OUTSYMBOL 
STRING ELEMENT 
TYPE 


e List procedure: 


A user-declared procedure providing a list of the data items to be 
transmitted. ‘ 
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Each procedtre is discussed in detail below, and the form of the procedure 
call is given. 


INPUT/OUTPUT DEVICES 


The procedures to be described in this section deal with the appearance of 
the data on an input or output device. All of the procedures describe a_ printed 
page. However, the concepts may be generalized to include any external device. 


Listed below are the physical characteristics of the I/O devices. The number of 
characters per line is referred to as P. The number of lines per page is 
referred to as P'. 


Pp Pp? 
Device (characters) (lines) 

Line Printer 120 55 

Card Reader (inary) 160 no limit 
Card Reader (decimal) 80 no limit 
Card Punch (binary) 160 no limit 
Card Punch (decimal) 80 no limit 
Magnetic Tape, Disk, 120 no limit 


Drum 


hese device characteristics may be altered where applicable (e.g., number of 
characters per line for magnetic tape may be reduced) by using the procedure 
SYSPARAM, b 


DESTINATION CODE 


the Series 600/6000 ALGOL system uses a symbolic destination code which 
indica the medium to which the information is intended to go (final 
destination) or from which it is to come. bestination codes are required because 
information 1s often stored temporarily on an intermediate device such as 
magnetic tape or disk, The destination code indicu'es the format of the data on 
the external device. For example, a common case is when information which will 
eventually be printed is temporarily stored on tape. In this case the 
destination code indicates that the data is to be formatted as if it were going 
to the printer, in spite of the fact that it is going to magnetic tape. Another 
case is when a card image is read from disk. In this case the destination code 
indicates that the data is to be read in the same format as when reading 
directly from the card reader. 


The destination code defines the type of logical device to be associated with a 
file, independent of the physical device. In this way the system limits (that 
is, P and P') for a file are defined. When the destination code is absent, the 
logical device will be the same as the physical device. 
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The destination code is specified on a $ FFILE control card by the option 
DSTCOD/ (XXX), where XXX may be any of the following: 


Mnemonic Definition 

MTAPE magnetic tape 

DISC disk 

DRUM drum 

BCRDR card reader, binary mode 
DCRDR card reader, decimal mode 
BCPNCH card punch, binary mode 
DCPNCH card punch, decimal mode 
PRNTR printer 

PTMODS 5/6 channel paper tape 
PTMODD 7/8 channel paper tape 


The layout procedures are used to describe nonstandard operations which are 
to take place during input and output. The procedures need not be called, in 
which case certain standard operations (described with each procedure) will be 
in effect. The technique for using the layout procedures is as follows: 


The programmer declares a setup procedure containing any or all of the 
eight layout procedures (FORMAT, HLIM, VLIM, HEND, VEND, NO DATA, TABULATION, 
BAD DATA). At some point in the program there is a call to an I/O transmission 
procedure which has as one of its parameters the procedure identifier of this 
setup procedure. At the time the I/O procedure is called it causes the setup 
procedure to be executed, thus establishing the nonstandard operations. Each 


time a new I/O transmission is called, the standard layout operations will be 
resumed until changed by a new setup procedure. 


BAD DATA 


To indicate the procedure which is to be called when a request ‘s made for 


an item to be transmitted, and the item is incompatible with the format 
character. 
Form 
BAD DATA (p) 
p: procedure identifier 
Rules 
dis This procedure applies only to input. 
2s If the referenced field is not compatible, control will be transferred 
to procedure p. 
36 If BAD DATA is not used and the condition described in Rule 2 arises, 


control will be transferred to the end of the program as though a 
dummy label had been placed just before the final 'END'. 
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Examples 


FORMAT 


BAD DATA (CHECK) 


The procedure CHECK is used when incorrect data appears on the input ) 
device. 


‘BEGIN' ‘PROCEDURE’ REDO; OUTLIST (6,LAY,LIST); 
++. BAD DATA (REDO);... 'END' 


When an incompatibility occurs, control goes to procedure REDO which 
outputs an error message. 


To describe the form in which data appears on the input device or is to 
appear on the output device. 


Form 


FORMAT (string) 


string: a string with a special form 


\ 


The format string is composed of a series of items separated by 
commas. 


The string is interpreted from left to right in conjunction with a 
list of data items which are to be transmitted. 


These data items usually appear in a separate procedure called a_ list 
procedure, 


An item in the format string may describe a number, a string, or a 
Boolean quantity, or it may simply cause a title to be written or page 
alignment to take place. 


All the format items listed above constitute a format string. 


Any format item or any group of format items can be repeated any * 
mumber of times by enclosing in parentheses those items to be repeated 

and preceding the parentheses by an integer n indicating the number of 
repetitions desired; i.e., 3(2Z.D) causes 3 decimal numbers to be 
transmitted. If no integer precedes the parentheses an infinite number 

of repetitions is indicated. 


Number Formats 


l. 


Integers. This format item consists of a series of 2's, a series of 
D's, or a series of 2's followed by D's, each corresponding to a digit 
position of the number, and an optional sign. oy 
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fo Nest 


The letter D is used to indicate a digit which is always to be 


printed. (For example, 385 when written with format DDDD will appear 
externally as 0385.) 


The letter Z is used to indicate that the corresponding digit is to be 
suppressed if it is a leading zero. In this case, a zero digit will 
be replaced by a blank space when all the digits to its left are 
zeros. (For example, 21 when written with format 222 will appear 
externally as #21.) 


A series of Z's or D's may be written in a shorthand notation as 
follows: nZ or nD (where n is an integer) is equivalent to 222...2 or 


DDD...D (n times). (For example, 3Z and 222 are equivalent. 4D and 
DDDD are equivalent.) 


An optional sign may precede or follow the Z's and D's of a number 
format. If no sign appears, the number is assumed to be positive. 
Note: If a negative number is output with no sign position, the first 
digit position will print as $,A,B -,I xvepresenting the digits 
0,1,2,...,9 respectively. If a plus sign appears, the correct sign of 
the number appears on the external medium. If a minus sign appears, 


positive numbers will be unsigned and negative numbers will have a 
minus sign on the external medium, 


If a preceding sign is to appear externally with a number which has 


had leading zeros suppressed, the sign will be placed immediately to 
the left of the first non-zero digit. 


The total number of positions which an integer occupies on the 
external medium is the sum of the Z's and D's (plus one if the 
optional sign appears). If the field width is insufficient to hold the 
complete number, the complete number will be transmitted; but the rest 
of the line may be moved to the right. 


\ 


Examples of integer formats: 


If +XXDDD is used with 2176, it appears as +2176. 
If -22Z2DD is used with 3, it appears as }}}03. 
If -DDDD is used with -45, it appears as -0045. 
If 222 is used with 0, it appears as }pp. 

If ZZD is used with 0, it appears as 0. 

If 224D+ is used with 390, it appears as }40390+. 


Decimal Numbers. This format item consists of 2's and/or D's each 
corresponding to a digit position, a period (.) or the letter V_ to 
indicate the position of the decimal point, and an optional sign. 


The lettec 2 has the same function it did for integers and it may 
appear only to the left of the decimal point. 


The letter D may appear on both sides of the point and has the same 
function as for integers. 


If a. is used to indicate the decimal point position, it will appear 
on the external medium in that position. If the letter Vv is used it 
merely indicates where the decimal point should be, but no space is 
used on the external medium, 
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The sign part functions as it did for integers. 


) 
The total number of positions which a decimal number occupies on the 
external medium is the sum of the Z's and D's plus one for the sign, 
plus one if the point is indicated by a . in the format. If the field 
width is insufficient to hold the complete number, the complete number 
will be transmitted; but the rest of the line may be moved to the 
right. 


Examples of decimal numbers: 


If ZZDD.DD is used with 146.776, it appears as 146.78. 

If -3D.D is used with 1.2, it appears as 001.2. 

If +32.3D is used with .0042, it appears as }yp+.004. 

If -%ZDVD is used with -142.78, it appears as -1428. 

If 224D.DD- is used with -3394.7, it appears as }3394.70-. 
If 22D is used with 29.756, it appears as 30. 

If .3D- is used with -.0254, it appears as .025-. 


Decimal Numbers with Exponent. This format item is the same as_ that 
for a decimal number with the addition of an exponent part to indicate 
the power of ten to which the number must: be raised to give the true 
decimal number. 


The exponent part consists of an apostrophe to separate it from the 
decimal number followed by an optional sign, a series of Z's, and/or a 
series of D's. 


a) 


The letter E will appear on the external medium in the proper position 
to separate the decimal number and its exponent. 


The rules for the exponent part are the same as those for integers. 


A number using this format will appear externally with its leading 
digit not zero, The exponent is adjusted accordingly. If the number is 
zero the exponent is also set to zero. 


If a nonzero number has a zero exponent which is specified by Z's the 
apostrophe and the exponent sign are also suppressed, 


The total number of positions needed on the external medium is the sum 
of all the 2's and D's plus one for the sign, plus one for the 
exponent sign, plus one for the apostrophe plus one for the decimal 
point (if the decimal point is specified). 


Examples of decimal numbers with exponents: 


If 3D.DD'+DD is used with 3075.2, it appears as 307.52'+01. 
If D.DD'-22 is used with 7.1, it appears as 7.10¥¥. 

If 2ZD'+ZD is used with .021758, it appears as 218'-4. 

If DD'2Z is used with 35.649, it appears as 36/}%. 

If .3D'+2b is used with 917.2, it appears as :917'+03. 

If .DD'-222 is used with .000312, it appears as :31'}~-3. 
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4. Octal Numbers. The form of this item is nO or 00...0 (n times) where n 
is an integer which specifies the number of digits in the octal field. 


The octal format item may only be used for output. 


For output of real and extended real numbers, if n < 12, the leftmost 
n digits will be transmitted; if n 5 12, twelve digits will be 
tranmitted, followed by n - 12 blanks. 


For output of integer and Boolean values, if n < 12, the rightmost n 
digits will be transmitted. If n > 12, twelve digits will be 
transmitted, followed by n - 12 blanks. 


Examples of octal numbers: 


If 50 is used with 447521767511 on output, it appears as 44752. 


If 140 is used with 712342165134 on output, it appears as 
712342165134py,. 


Truncation for Number Formats 


The integer or decimal number formats described above may be followed by 
the letter T to indicate that the output should be truncated instead of rounded. 
Rounding occurs when truncation is not specified. 


Examples of truncation: 


If -223D.2DT is used with -12.719, it appears as }¥-012.71. 
If 32DT+ is used with 145.6, it appears as 145+. 
If -2.DT'+Z22 is used with .-12537, it appears as }1.2'$-2. 


\ 


Insertions in Number Formats 


All of the number formats may have either blanks or strings inserted 
anywhere within the format item, The insertion will appear on the external 
medium, 


A blank is denoted by the letter B. If more than one blank is desired it 
may be expressed by a series of B's or by the short hand notation nB (n is an 
integer specifying the number of blanks). 3B is equivalent to BBB. 


A string which is to be inserted must be enclosed in string quotes (i.e. 
"string\). If the string is to be repeated it may appear as n"string\ where n is 
an integer specifying the number of times the string is to appear. The 
information in the string (not including the outermost quotes) is inserted in 
the corresponding place in the number. 
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Examples of insertions: 


If D2B3D is used with 3972, it appears as 3972. 
If "ANS=\4D is used with 271, it appears as ANS=0271. 


If "INTEGER’PART\-4ZVB"FRACTION\B2D is used with -195.7634, it appears as 


INTEGER#PART}-1954FRACTIONS76. 
If 22B2D.DBT'+DD is used with 44865.5, it appears as 4486.5p'+01. 
If "OCTALB\50 is used with 112233445566, it appears as OCTAL¥11223. 


Numbers for Input 


Numbers which are input using the above format codes should, in general, 


appear the same as those which are output. 


However, there are fewer restrictions on the form of input numbers. 


MG Leading zeros may appear even if Z's are used in the format code. 
Leading blanks may appear even if D's are used. 

2s If insertion strings or blanks are used in the format code the 
corresponding number of characters on the input device are skipped. 

35 If a sign is specified at the left in the format code it may appear in 
any Z or D positions on the input device as long as it is to the left 
of the first digit. If the sign is specified at the right, it must 
appear exactly where it is indicated. 

4. If a period is required, it must appear exactly where it is indicated, 

String Format 

vhis format item is used to output string quantities. It may not be used 

for input. Alpha format must be used instead. 

The form of this item is nS or SS...S(n times), where n is an integer which 

indicates the number of symbols in the string. 

lL. If the actual string is longer than the number of S's indicated, only 
the leftmost symbols are transmitted. 

Ze If the string is shorter, blank symbols are added to the right of the 
string. 

3. Examples of string format: 

If S is used with "A\, it appears as A. 
If 6S is used with "TOTALS\, it appears as TOTALS. 
If SSS is used with "ABC\, it appears as ABC. 
If 4S is used with "PROGRAM\, it appears as PROG. 
If 5S is used with "CAT\, it appears as CATH}. 
Insertions in String Format 
Blanks or strings may be inserted in the S format. The rules are the same 
as described for number formats. 
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Examples: 


If B3SBB2S is used with "12345\, it appears as }123~)45. 
If 2S"= 3SB is used with "T1ANS\, it appears as T1=ANS}. 


Alpha Format 


This format item is used to transmit ALGOL basic symbols. (See 
“Introduction”, Section I for a list of basic symbols.) 


1. The form of this item is the letter A. 


gs: The appearance of the letter A as a format item causes transmission of 
a single symbol from or to the data item specified in the list 
procedure. 

Be The symbol will be stored as an integer. 


It may be desired to work with symbols transmitted by the A format. 
Therefore, a function is provided which makes any ALGOL symbol type ‘INTEGER’ 


and causes the symbol to have the same value as if it had been read in using 
Alpha format. 


The function is called EQUIV. Its argument must be an ALGOL basic symbol 
enclosed in string quotes; i.e., EQUIV("'BEGIN'\). 


Example: 


If A format is used to read an "*" into variable ALG the statement 'IF' ALG 
'gQ' EQUIV ("* ) 'THEN' 'GO TO' GOOD will check that "*" was in fact the 
symbol which was read in. 


Boolean Format 


This format item is used to transmit Boolean quantities. The item may 
consist of the letter P or the letter F. If P is used and the quantity is true, 
the number 1 is transmitted; if false, 0 is transmitted. 


On input if F is used, the next seven characters are examined. If they are 
‘PRUE', then the value of true is transmitted; if they are 'FALSE', the value of 
false is transmitted. On output if F is used and the value is true, then the 


seven characters 'TRUE'# are transmitted; if the value is false, then 'FALSE' is 
transmitted. 


Insertions in Boolean Format 


Blanks or strings may be inserted in the Boolean format. The rules are the 
same as described for number formats and for strings. 


8-9 BS11l 


Examples: 


If BBPB is used with a Boolean variable whose value is ‘TRUE’, it appears 
as Be1B. 


If "THEBRELATIONBIS\ BF is used with a Boolean variable whose value is 
"FALSE', it appears as THEWRELATIONMIS'FALSE'. 


Standard Format 


A number may be transmitted for input or output without specifying in 


a 
format item the exact form the number is to take. The number appears on the I/0 
device in “standard format." 


If the letter N appears as a format item, it specifies that a number with 
standard format is to be transmitted. 


Standard format for input may be defined as follows: 


of Any number of digits in any of the forms which are acceptable to 
integer or decimal number formats may be input. 


2. The number must be terminated by an illegal character; i.e., one not 
normally permitted in a number, or by k blanks where k is a system 


parameter initially set at one. k may be changed by calling the system 
procedure SYSPARAM. 


Note: The input medium will be positioned to pick up the illegal character 
on the next read. Therefore the programmer must space over the illegal 


character (by using RDCHAR or SYSPARAM) if the illegal character is not to 
be used. 


If standard format is invoked, and the first line referenced contains any 
legal character for a number (i.e., digit, sign, decimal point or apostrophe) 
the right hand margin will terminate the number. If, however, the first line 
contains only blank characters, the subsequent lines will be searched until a 
legal number character is found. At this point the right hand margin is not 
significant, and only an illegal character or k blanks will terminate the 
number. 


If standard format is used for output, the type of the variable determines 
the format on the external device. 


Ll. For extended real variables, the value will appear as though the 
decimal number format B-.16DE+DD had been used. 

20 For real variables, the value will appear as though B-.8DE+DD had been 
used. 

3. For integer yariables, the value will appear as though E-8ZD had been 
used, 

Ass For Boolean variables, the value will appear as though BF had been 
used. 


Standard format will be assumed if the end of a format string is reached 
while there are data items in the list procedure still to be transmitted. In 
this case all the remaining quantities will be transmitted with standard format. 
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If a list of variables is to be terminated but either 
1. no reference is made to a FORMAT procedure, or 
23 the format call has the form FORMAT ("\) 


the items will be transmitted according to standard format. 


Hollerith Format 


The form of this item is nH, where n indicates the number of characters to 
be transmitted. On input, up to six characters of code will be read. The 
characters will be inserted in a word, left justified, with trailing blanks. 


On output, up to six characters of code will be inserted in the output 
record, If n is greater than six, then only the first six characters will be 
used, but the medium will be spaced n characters. 


Alignment Marks 


These are single characters which cause specific page operations to occur. 
The marks and operations are: 


ff go to next line 
1 go to new page 
J go to next tabulation position. 


Alignment marks may appear at the left or the right of any format item. If 
they appear at the left of the item, the actions take place before the format 
operation. If they appear at the right, they take place afterwards; i.e., /3S 
causes a skip to a new line before the string is transmitted and a skip to a new 
page after. 


Alignment marks may appear as separate format items simply by enclosing 
them in commas. 


Any number of alignment marks may appear in succession, and this causes the 
specified action to be repeated as many times as it is indicated; i.e., 
causes a page to be terminated and two pages to be skipped. Also any mark may be 
preceded by an integer n, where n indicates the number of times the action is to 


be done; i.e., 43 causes a skip to the fourth tab position and is equivalent to 
IIIT. 


Title Format 


This format item is used when it is desired to cause page alignment and/or 
the output of insertion strings without transmitting any ALGOL quantities. This 


item consists entirely of insertions and alignment marks and refers to no data 
items. 


On input, this item causes characters to be skipped corresponding to the 
insertion strings and causes the desired alignment operations to be performed. 


On output, the insertion strings are transmitted und the alignment operations 
are performed. 
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Example of title format: 


t"SUMMARY\// indicate a new page, an insertion, a line to he terminated and 
a line to be skipped. 


Examples 


1. FORMAT ("4D.2D,2Z,/P,"ISPTHEANS\ t , A\) 


This format string transmits a decimal number and an integer on one 
line; on the next line is a Boolean quantity specified by a 0 or a 1 
followed by an insertion, Then a skip is made to a new page and an 
ALGOL symbol is transmitted. 


2. FORMAT ("7S,2(52.D'+2Z,F) ,2J3\) 


A seven symbol string is transmitted followed by a decimal number, a 
Boolean quantity, a decimal number, a Boolean quantity. Then two 
tabulations occur. 


3. FORMAT ("(Z2.BDT-,BBB+ZZD)\) 


A decimal number and an integer are transmitted an indeterminate 
number of times; i.e., until the list of data items is exhausted. 


FORMAT n oY 


To describe the form in which data appears on the input device or is to 
appear on the output device; to permit certain elements of the format string to 
be variable and to have their values calculated at the time the FORMAT procedure 
is called. 


Form 
FORMAT n(string, xX,,X2,-+++/%Xn) 
n: integer 
string: string with a special form 
XLeXQee0eeXnt expression 
Rules 
l. n may be 0,1,2,...,9. This value indicates the number of x's which 


appear following the format string. (Note: The form FORMAT (string) as 
discussed previously is simply a special case of this format call in 
which n=0.) 


as The form of the string is the same as that discussed for the procedure 
call FORMAT (string), with certain additional features. 


3. The string may contain the letter xX in various format. items, The 
values of the x 's which follow the format string will replace each X 
when the FORMAT procedure is called. 4 
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4. 


Example 


The letter X may appear in the format string as follows: 
a. In a Number Format: 


Any Z or D may be preceded by the letter X to indicate a variable 
number of repetitions of the Z or D. 


' Examples: 
XZXD - variable integer size 
22.XD - variable number of decimal places 
:DDD'XD - variable exponent size 


be In an Insertion: 


The letter B may be preceded by an X to indicate a variable 
number of blank spaces on output or a variable number of ignored 
positions on input. 


Example: 
2ZXB3D.D 
c. In a String Format: 


The letter S may be preceded by the letter X to indicate a 
variable number of symbols in the string. 


Examples: 


xs 
BXSB4S 


da. With an Alignment Mark: 


t,/ or J may be preceded by the letter X to indicate a variable 
number of times the specified alignment action is to be taken. 


Examples: n 

XJDD.DD - variable number of tabulations 

3S2BX/ - variable number of lines to be 
skipped 


The X's may be used at most 9 times in a single format string. The 
integer n in the format call indicates the number of X's which appear 
in the string. 


The xX1,X2,-++,Xpn in the format call represent the integral values to 
be assigned to the X's in the string. X1,/X2;+++,Xn must be positive. 
x, is assigned to the first X which appears; x2 to the second, etc. 


FORMAT 3 ("ZZXD.D,XBXS\,2,A-5,B) 


The decimal number will be transmitted as though it had been written as 
2Z2D.D. A-5 blanks will precede the string which will contain B symbols. 
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HEND 


To specify the procedures which are to be called when the end of a line is 


reached during input or output; 


to permit special action to be taken depending 


on what situation causes the end-of-line condition to occur. 


Form 


HEND (pl,p2,p3) 


pl,p2,p3: procedure identifiers 


Rules 


Examples 


1. 


HLIM 


pl is the name of the procedure to 


format call. This indicates that a 


considered the normal case. 


p2 is the name of the procedure 
characters is to be transmitted or 
would pass the right margin of the 


p3 is the name of the procedure 
characters is to be transmitted or 
would pass the physical end of the 


be called when a "/" appears in the 
new line is to begin and is 


to be called when a group of 
a tabulation is specified which 
current line as specified by HLIM. 


to be called when a group of 
a tabulation is specified which 
line due to the characteristics of 


the I/O device beifg used, but would not pass the right margin as set 
by HLIM, Note: This physical end is specified by standard limits set 
within the system or a control card to the system, and may be altered 


by procedure SYSPARAM, 


If it is desired to take no special action when the end of a line is 


reached this procedure call may be 


omitted, 


If action is desired for some but not all of the conditions, dummy 
procedure names may be used for those requiring no action, 


HEND (NORM, OVER,END) 


A "/" in the format call causes control to go to Procedure NORM; if 
the right margin is reached control goes to OVER; if the physical 
end-of-line is reached control goes to END. 


"BEGIN'...'PROCEDURE' DUMMY;;... 
...HEND (DUMMY,FIN,NEXT);...'END' 


Since Procedure DUMMY contains no statements, no special action will 
be taken when a "/" appears in the format call. 


To specify the left and right margins of the input or output lines. 


BS1l 


Form 


HLIM (left, right) 


left, right: arithmetic expressions 


Rules 


NO DATA 


Rules 


The first parameter specifies the left margin. 
The second parameter specifies the right margin, 
There is a restriction that 1 < left < right. 


If this procedure call is not given, the left margin is set to one and 
the right margin is set to infinity. 


HLIM (5,50) 
Left margin is 5, right margin is 50. 
HLIM (J-4,K) 


Left margin is value of J-4, right margin is value of K. 


indicate the procedure which is to be called when a request is made for 
an input device but no more data remains. 


DATA (p) 


procedure identifier 


This procedure call applies only to input. 


If input data is requested by a data transmission procedure when no 
data remains on the input device, control will be transferred to 
procedure p. 


If NO DATA is not used and the condition described in Rule 2 arises, 


control will be transferred to the end of the program as though a 
dummy label had been placed just before the final ‘END’. 
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1. NO DATA (EOF) : 
The procedure EOF is used when no data exists on the input device. 

2. "BEGIN' 
"PROCEDURE' LAST; 'GOTO' FIND; 
NO DATA (LAST);... 
‘END' 
When no data is found on the input device, control goes to procedure 
LAST which sends control to the statement labelled FIND. 

TABULATION 


To set the width of the tabulation field of the I/O device; to permit the 


skipping of a fixed number of positions whenever the alignment mark J appears in 
a format call. 


Form 


TABULATION (a) 


a: arithmetic expression 


"a" specifies the number of characters of the foreign medium which 
constitute the tabulation field. 


If the left margin is at position X, the tab positions for a line are: 
X, Xta, X+2a, X+3a, ... , Xtka 


The last tab position occurs before or at the same point as the right 
margin as specified by HLIM, or at the physical end of the line, 
whichever is smaller. 


When a "J" appears in a format call, the I/O device is spaced to the 
next tab position. 


If this procedure call is not given the tabulation spacing is one. 


TABULATION (15) 
A new tab position occurs every 15 spaces. 
TABULATION (At2-B*C) 


The value of A?-BC determines the tab spacing. 
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VEND 


To specify the procedures which are to be called when the end of a page is 
reached during input or output; to permit special action to be taken depending 
on what situation causes the end-of-page condition to occur. 


Form 


VEND (pl,p2,p3) 


pl,p2,p3: procedure identifiers 


Rules 


Examples 


1. 


VLIM 


pl is the name of the procedure to be called when a "1" appears in the 
format call. This indicates that the subsequent information is to 
appear on a new page, and is considered the normal case. 


p2 is the name of the procedure to be called when a group of 
characters is to be transmitted which would appear on the line after 
the one specified by VLIM as the bottom margin. 


p3 is the name of the procedure to be called when a group of 
characters is to be transmitted which would pass the physical end of 
the page due to the characteristics of the I/O device being used, but 
would not pass the bottom margin set by VLIM. Note: This physical end 
is specified by standard limits set within the system or a _ control 
card to the system, and may be altered by procedure SYSPARAM. 


If it is desired to take no special action when the end of a page is 
reached this procedure call may be omitted. 


If action is desired for some but not all of ,the conditions, dumny 
procedure names may be used for those requiring no action. 


VEND (NEW,PAGE 1,PAGE 2) 


Control goes to procedure NEW when a "t" appears in the format call; 
to PAGE 1 when the bottom margin is reached and to PAGE 2 when the 
physical end of the page is reached. 


"BEGIN'...'PROCEDURE' EMPTY;;... 
«+.VEND (OK,FIX,EMPTY);...'END' 


No action is taken if an attempt is made to write beyond the end of 
the page. 


To set the vertical layout of a page; to specify how many lines on a _ page 
are to be used. 
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Form 


VLIM 


top, 


Rules 


(top, bottom) 


bottom: arithmetic expressions 


The top line of the page has a value of 1, the second, 2, etc. 


The first parameter indicates the first line to be used for 
transmission, 


The second parameter indicates the last line to be used. 
There is a restriction that 1 < top < bottom. 


If this procedure call is not given, the first line is set to one and 
the last line is set to infinity. 


VLIM (10,50) 
Data transmission,starts on line 10 and ends on line 50. 
VLIM (1, TOTAL) 


Data transmission starts on the first line of a page, and ends on the 
line specified by the value of TOTAL. 


EXAMPLES OF LAYOUT PROCEDURES 


le. 


"PROCEDURE' SET! 
‘BEGIN’ 
FORMAT ("3D.2D\); 
_'IF' A 'EQ' Bt2 'THEN' 
"BEGIN! 
FORMAT ("22Z2\); 
TABULATION (5) 


‘END'; 
VLIM (‘IF' A ‘EQ' Bt2 'THEN' 5 
"ELSE' 10,50) 
"END" 


If A=B2, the second format call will override the first, a TAB of 5 
will be set and the vertical margins will be (5,50). Jf A#B, the 
first format will be in effect, the TAB will be 1 and the vertical 
margins will be (10,50). 
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2. | 'PROCEDURE' LAYOUT; 
‘BEGIN’ 
FORMAT ("t,100(ZZD.D,BBD.D'DD), 
Ni 
HLIM (5,60); 
HEND (GOOD , OVER, OVER) 
‘END'; 
‘PROCEDURE’ GOOD; HLIM(5,60); 
"PROCEDURE" OVER; HLIM(15,60) 


Whenever line overflow occurs procedure OVER will change the 


horizontal margins. When the "/" in the format call is reached, 
procedure GOOD will restore the original margins. 


DATA TRANSMISSION PROCEDURES 


These procedures handle the actual transmission of data for input and 
output. 


In calling these procedures it is necessary to specify the I/O device which 
is to be used for the transmission. File control cards are required to indicate 
the devices to be used. 


Files used by ALGOL are restricted to the numeric file codes 01 to 40 
(decimal). 05 is the standard input file and 06 the standard output file. These 
two files do not require file control cards in order to be used. Unless 
redefined, file 05 indicates file I*; 06 indicates file P*, Error messages will 
thus be written on 06. 


The point in a program at which the actual I/O procedure is called is when 
the transmission of data occurs. Layout procedures, if any, and a list 
procedure, if any, will be called by the internal I/O procedures. 


INLIST 


To indicate that data is to be transmitted for input; to specify the input 
device, the setup procedure and the list procedure. 


Form 


INLIST (ay 122/83) 
aj: arithmetic expression 


a2, agi procedure identifiers 


Rules 
1. a, is the file number from the file control card which indicates the 
specific input device to be used. 
Qi a2 is the name of the setup procedure containing the layout procedure 


calls. 
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3s, ay is the name of the list procedure which contains the data items to 
be transmitted. 


4. When INLIST is executed, it first calls the layout procedures, then 
transfers back and forth to the list procedure while the actual input 
is taking place. See Appendix C for a detailed explanation of INLIST. 


1.  INLIST (05, ABC, INPT) 


This statement causes input to take place on I/O device 5 according to 
the layout procedures in procedure ABC and according to the list 
procedure INPT. 


2. 'BEGIN' 'PROCEDURE' START; 

'BEGIN' 
FORMAT ("t,A,D.D'DD/,2DD,P\) ; 
VLIM (2,50) 

"END"; 20 

‘PROCEDURE’ LIST (OK); 

'BEGIN' 

OK(ALPHA); OK (BOY); OK (COUNT) ; 

OK (BOOL) 

"END';... 

INLIST (7,START,LIST);... 

‘END! 


This program transmits a symbol into ALPHA, a real number into BOY, an 
integer into couny and a 0 or 1 into BOOL. 


INPUT n 


To indicate that data is to be transmitted for input; to provide for data 
input without using layout procedures or a list procedure. 


Form 
INPUT n (a,String,e),€2,--+/en 
n: integer 
a: arithmetic expression 
string: format string 
€1,€2,-++,@ni variables or subscripted variables 
Rules 
1s a is the file number from the file control card which indicates the 
input device to be used. 
2. The format string is in the same form as the format call FORMAT 


(string), i.e., no X's are allowed in the string. 


Y 


OUTLIST 


€1,€2,-++,@n are the actual data items to be transmitted according to 
the format string given. 


n may have the value 0,1,2,...,9 and indicates the number of data 
items. 


The equivalent of this procedure call in terms of INLIST is as 
follows: 


‘BEGIN' 'PROCEDURE' LAYOUT; FORMAT (string); 
*PROCEDURE' LIST (ITEM); 
"BEGIN' ITEM (e,); ITEM (e2);...; 
ITEM (ep) 
‘END'; 
INLIST (a, LAYOUT, LIST) 
‘END! 


When the only layout procedure required is FORMAT and when there are 
nine or fewer items to be transmitted, this simpler input call may be 
used instead of INLIST. 


INPUT 6 (05, "(ZD.D)t 
ati), a(2], a(3l, ata), A(5}, al6) 


This transmits 6 values according to the repeated format 2D.D. 
INPUT 2 (07,"P,F\, B(1], B[2]) 


This transmits 1 or 0 into B) and 'TRUE' or 'FALSE' into B92. 


To indicate that data is to be transmitted for dutput; to specify the 
output device, the setup procedure and the list procedure. 


Form 


OUTLIST (a) ,a2,3) 


aj: arithmetic expression 


a2,a2: procedure identifiers 


Rules 


a, is the file number from the file control card which indicates the 
specific output device to be used. 


a2 is the name of the setup procedure containing the layout procedure 
calls. 


a3 is the name of the list procedure which contains the data items to 
be transmitted. 
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Examples 


OUTPUT n 


When OUTLIST is executed, it first calls the layout procedures then 
transfers back and forth to the list procedure while the actual output 
is taking place. See Appendix C for a detailed explanation of 
OUTLIST. 


OUTLIST (10,PAGE,LIST) 

This statement causes output to take place on I/O device 10 according 
to the layout procedures in procedure PAGE and according to the list 
procedure LIST. 


"BEGIN' 'PROCEDURE' SET; 
FORMAT ("3D.D,B2Z2D,2B3S/\) ; 


= 
{"PROCEDURE' OUT (A); 


}'BEGIN' 

A(TOTAL) ; A (INTEGER) ; A ("ANS\) 
'END'} 6.5 
OUTLIST(6,SET,OUT);... 

‘END! 


This program causes the values of the two variables TOTAL and INTEGER 
and the string ANS to be written out on device 6. 


To indicate that data is to be transmitted for output; to provide for data 
output without using layout procedures or a list procedure. \y 


Form 


OUTPUT n (a,string,e),€2,...,en 


n: integer 
a: arithmetic expression 


string: format string 


€1,€2,-+++,@n: arithmetic expressions, Boolean 


Rules 


1. 


4. 


expressions or string 


a is the file number from the file control card which indicates the 
output device to be used. 


The format string is in the same form as the format call FORMAT 
(string); i.e., no X's are allowed in the string. 


€1,€2,-++,@n are the actual data items to be transmitted according to 
the format string given. ¢ ye 


n may have the value 0,1,...,9 and indicates the number of data items. 
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Ss The equivalent of this procedure call in terms of OUTLIST is as 
follows: 


‘BEGIN' 'PROCEDURE' LAYOUT; FORMAT (string); 
"PROCEDURE' LIST (ITEM); 
‘BEGIN' ITEM (e)); ITEM (e2);...; 


ITEM (en) 
‘END'; 
OUTLIST (a,LAYOUT,LIST) 
"END' 
6. When the only layout procedure required is FORMAT and when there are 


nine or fewer items to be transmitted, this simpler output call may be 
used instead of OUTLIST. 


Examples 
1. OUTPUT 3 (06,"3(22D.DD)\,A,B,C) 
This statement will cause 3 values of A, B and C to be transmitted to 
device 6 according to the format given. 
2. OUTPUT 5 (09,"2(D.D'Z2Z), 3S, 
2BSS,I\, Xt2-3,Y12-3,"TOT\, 
“Al\, COUNT) 
This statement will cause 2 decimal numbers, 2 strings and an internal 
notation integer to be transmitted, 
WTREC ! 


To transfer data from an array in core memory to an external device using 
logical record handling. 


H \ 
Form 

! 

WTREC (FC,A) 

FC: arithmetic expression 


A: array identifier 


Rules 
as FC is the logical file number. 
2s A is a one-dimensional array which contains the information to be 
transferred. 
3 The array A must be declared with a lower bound of zero: 


4. Before calling WTREC, the element A [0] must have been set to the 
: number of words to be written. 


5. The words to be written are stored in A [1] through a [a(o]]. the 
contents of A are not altered by WTREC. 
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10. 


li. 


12. 


The array A will usually be of type 'INTEGER', but in certain cases it 
may be 'REAL' or ‘EXTENDED REAL'. 


Procedure WTREC controls the transfer via the File and Record Control 
routines. It also performs any packing of the data as required by the 
destination codes. The format of the data in memory is discussed for 
each destination code. (See Appendix D.) 

Printer - Each word of the array A corresponds to one character for 
the printer. Each character is stored in the internal character code. 
These codes are given in the table below. Numbers outside the range 
0-63 are treated modulo 64. 


A maximum of 136 characters may be written with each call to WTREC. 


Character codes 15 and 63 have special meaning. Code 15 is ignored 


completely by the printer--i.e., nothing is printed. (Blank characters 
have code 16). 


Character code 63 is used to indicate the end of the print line. After 
printing the actual line, the printer then examines the character 
following the 63. This character is interpreted as follows: 


0-15 the printer is spaced that (0-15) number 
of lines. 
16 the printer is spaced to the top of the 
next page. 
17-63 see PRT201 Pri 
BQ39. 


ter reference manual, 


WTREC ends all lines with the spacing combination 63 and 1, indicating 
spacing to the next line. However, if the user has given his own 
spacing combinatiqn, his will be encountered first; and the one given 
by WTREC will be ignored. 


0 1 2 3 4 5 6 7 8 9 
0 0 1 2 3 4 s: 6 7. 8 9 
10 ( # @ t > ? ~ A B C 
201) Do OB FG: CH. CE se ow. (J. 4 
30°). Ne ah 0 UR Le OM, SN Or oP 
ao} Q R - $ * ) 7 t # Y 
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Line Internal Character Codes 


Card Punch, Decimal - This is the same as the description for the 
printer, with the exceptions that the maximum number of characters 
which may be written is 80 and that the character codes 15 and 63 have 
no special meaning. 


Card Punch, Binary - Each element of A corresponds to one column of 
the punched card. Within each word, bit position 35 goes to row 9, bit 
position 34 goes to row 8, etc. 


Paper Tape - Output is always in the binary mode. Each element of 
array A corresponds to one row on the tape. For further information 
see PTS200 Perforated Tape Subsystem reference manual, BP44. 


Magnetic Tape - Output occurs word for word. For these destination 
codes, the array A may be of type 'REAL' or 'EXTENDED REAL'. Note 
that, for 'EXTENDED REAL', A [0] must contain twice the number of 
elements to be transferred. 
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WTCHAR 


To insert one character in the current logical output record. 


Form 


WTCHAR (FC,A) 


FC,A: arithmetic expression 


Rules 


RDREC 


FC is the logical file number. 
The actual value of A is the character to be inserted. 


The format of the character in A is determined by the final 
destination code. The format is the same as discussed under Rule 7 of 
WTREC. Of course, with WTCHAR, A represents only one value. 


The end of the current logical record is indicated by calling WTREC 
with a negative value of A. When the final destination code refers to 


the printer and the value of A is negative, the absolute value of A is 
the number of lines to be spaced. 


To transfer data from an external device to an array in memory using 
logical record handling. 


Form 


RDREC (FC,A) 


FC: 
Ay 


Rules 


arithmetic expression 


array identifier 


FC is the logical file number. 


A is a one-dimensional array which will contain the information to be 
read. 


The array must be declared with a lower bound of zero. 
RDREC will set A [0] to the number of words read on each call. 
A [0] will be set to -l if RDREC encounters an end-of-file condition. 


The information read will be stored in A (1] through a([A 0] }. 
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7. The array A will usually be of type 'INTEGER', but in certain cases it 
may be ‘REAL' or ‘EXTENDED REAL'. 


8. Procedure RDREC performs any packing of the data as required by the 
destination code. The format of the data in memory is discussed for 
each destination code. (See Appendix D.) 


9. Card Reader - In reading from cards, column 1 goes into A [1], column 
2 into A [2], etc. With BCD cards, the number value read ranges from 0 
through 63 according to the table listed under WTREC. For binary 
cards the number ranges from 0 through 4095. 


10. Paper Tape - Input is always in the binary mode. Each element of array 
A corresponds to one row on the tape. For further information see 
PYs200 Perforated Tape Subsystem reference manual, BP44. 


Ve Magnetic Tape - Input occurs word for word. For these destination 
codes, the array A may be of type 'REAL' or ‘EXTENDED REAL'. Note 
that, for 'EXTENDED REAL', A [0] must contain twice the number of 
elements to be transferred. 


Note also that, when reading, the type of the array A must be the same as 
that from which the information was written, as no type conversion is done by 
RDREC or WTREC. 


RDCHAR 


To read one character from the current input logical record. 


4 


Form 


A + RDCHAR (FC) 


FC: arithmetic expression 


Rules 

i. FC is the logical file number. 

2. The value returned will be the character read. The format of the 
character is determined by the final destination code. The format is 
the same as discussed under Rule 8 of RDREC. 

3. When an end-of-file condition is encountered, RDCHAR returns a _ value 
of -l. 

TRANSMIT 


To transfer data between core memory and an external device (magnetic tape, 
disk, or drum) using physical record handling. 
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Form 


I 


+ TRANSMIT (FC, INDEX, MODE, LIST) 


FC, INDEX, MODE: arithmetic expressions 


Rules 


10. 


ll. 


LIST: procedure identifier 


FC is the logical file number. 


INDEX is the number of the first word within the file from which 
transferring is to begin. (INDEX > 0.) 


MODE indicates whether this is input or output and also indicates the 
type of the variables as they appear on the external device. 


LIST is a procedure which specifies the variables to be transmitted, 


File control block for files used with TRANSMIT must indicate physical 
record handling--i.e., no buffers are used. 


Files for disk and drum must be of type random. 


The parameter MODE indicates the type of the variables as they exist 


or are to exist on the external device. The possible values of MODE 
are given in the following table. 


Type Read Write 
"REAL' 0 1 
"INTEGER' 2 3 
‘EXTENDED REAL" 4 5 


\ 


The mode is entirely independent of the type of the variables as_ they 


appear in memory, because the necessary conversion occurs in the list 
procedure. 


The beginning of the information to be referenced on the external 
device is indicated by the value of the parameter INDEX. This is 
simply a sequential counter of the words as they are written on or 


read from the external device. The following two rules define the 
value of INDEX. 


a. For the first item (i.e., variable) to be referenced INDEX = 0. 


b. INDEX is incremented by 1 for each single-word variable 


("INTEGER' and 'REAL') and by 2 for each double-word variable 
("EXTENDED REAL'). 


The function value returned by TRANSMIT is the next unused INDEX. This 
can be used in a loop of the following type: 


INDEX: = TRANSMIT (17, INDEX, 1, LIST) 


Physical record handling is used. This means that data is transmitted 
with each call to TRANSMIT. Therefore, buffers are not found for files 
to be used with TRANSMIT. Temporary buffer space is reserved in the 
stack with each call, and this space is released upon return. At the 
time that the first reference to a file is made, it is opened by 


calling .UOPEN. Upon termination of the program the file is closed by 
«AEXIT. 
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The methods for positioning and the record format are slightly different 
for magnetic tape than for disk or drum. 


Magnetic Tape 


Each call to TRANSMIT results in transmitting at least one physical record. 
Each record begins with a control word. Data follows the control word. The 
contents of the control word are: 


Bits 0-23 INDEX for the next record 
Bits 24-35 MODE for this record 


The maximum length of any one physical record is 320 words, not counting 
the control word. For calls to TRANSMIT which indicate more than 320 words, the 
required number of 320-word records will be transmitted. 


Before reading or writing, TRANSMIT checks the INDEX against the previous 
value and then positions the tape accordingly. 


The following restrictions must be observed: 
Le Reading beyond the limits of the latest write operation is not 
possible. 


2. Writing beyond the, limits of the latest write operation is not 
possible. Writing dccurs only with the next available INDEX--i.e., no 
holes are allowed. 


Js Reading and rewriting always start with an INDEX which is the same as 
the INDEX from an earlier writer. 


4. For the initial writing of data on tape, the INDEX must be zero. 


Violation of any of the above rules causes TRANSMIT to print an error 
message and to terminate the execution. 


Drum_and Disk 


The restrictions for tape handling are removed for disk and drum. The 
parameter INDEX is used to calculate a starting address within the links 
allocated for the disk or drum. Thereafter, transmission occurs from this point. 


There is no special control word at the beginning of each record. This 
means that the parameter MODE must have the same type representation when 
reading a record as it had when the record was written. For example, a file may 
not be written with the MODE as 'REAL' and then later read as 'INTFGER'. 


INPUT/OUTPUT CONTROL PROCEDURE 


The following input/output control procedure accesses system parameters and 
allow some control over the positioning of the I/O devices. 
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SYSPARAM 


To gain access to certain system parameters so that they may be modified. 


Form 


SYSPARAM (a) ,a2,a3) 
aj,a2: arithmetic expression 


a3: integer variable 


Rules 
Ls The system parameters which may be changed or read out are: 

a. The character, line and page pointers (p, pt and pp") 
respectively. p and p' have an initial value of zero. E.g., when 
p=2, the third character is the next character to be accessed. 

b. The "standard format" constant determining the number of spaces 
between items (k). 

c. The physical end of line (P) and the physical end of page (P') 
which are characteristic of the I/O device. 

2. aj is the file number from the file control card specifying the I/0 
device concerned. 
3. ag may have a value of 1,2,...,11. 

a. If the value of a2 is 1,3,5,7,9 or 11, the value of the system 
parameter in question is assigned to variable a3. 

by, If the value of a2 is 2,4,6,8 or 10, the value of a3 becomes the 
new value of the system parameter. 

c. The action is as follows: 

if ag = 1, a3-p if a2 = 2, p-a3 
if a2 = 3, a3-p' if ag = 4, p'-a3 
if az = 5, a3+P if az = 6, P-aj 
if ag = 7, a3-P' if a2 = 8, Pleag 
if ag = 9, a3~k if az = 10, k~ag 
if a2 = 11, a3+p" 
4, p and p' represent actual positions on the I/O device which are to be 


changed when az = 2 and ag = 4. 


a. If ag = 2, p is tested to see if p<a3. If it is, blanks are 
inserted until p = a3. If ppa3, a skip to the next line is 
performed, p is set equal to 0, and blanks are inserted until p = 
a3. 
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b. If a2 = 4, p' is tested to see if p'<a3. If it is, lines are 
advanced until p' = a3. If p'>a3, a skip is made to a new page, 
p' is set equal to 0, and linés are advanced until p' = a3. 


a2 = 6 and az = 8 change the physical limits of the I/O device (P and 
p*) where this is possible (i.e., magnetic tape block length may be 
changed and unit record devices may have physical limits reduced, but 
not extended beyond the standard limits). If the limits cannot be 
changed and these actions are specified, the statement acts like a 
dummy statement. 


az may also have a value of 21 or 22 


a. If the value of az is 21, the file denoted by a, is defined as an 
input file. 


b. If the value of ag is 22, the file denoted by a) is defined as an 
output file. 

c. If the value of az is 21 or 22, the value of a3 is not 
significant. 

The condition which requires az = 21 or 22 only arises when the 


intended first action on a particular file uses a primitive procedure 
or procedure SYSPARAM. If this is the case, the system does not know 
the nature of the file and thus a call to SYSPARAM with a2 = 21 or 22 
would serve to define the file; e.g., if the first action with respect 
to file 6 is to read out the value of p by a call to SYSPARAM such as 


SYSPARAM(06, 1, CHAR) 


This call would have to be preceded by a call to SYSPARAM defining 06 
as an output file as follows: 


SYSPARAM(06, 22, 0) 


ag may also have a value of 23. If az is 23 then the file will be 
closed with the options indicated by a3. The value of a3 (which is 
treated modulo 4) indicates: 


Rewind but do not lock the file 

Do not rewind and do not lock the file 

Lock and release the file. 

Rewinding and/or locking is not appropriate for this device. 


wnro 


az may also have a value of 24. If az is 24 then a may have a value 
of 0 through 7. This function acts like the DSTCOD on the $ FFILE 
control card. The appropriate values in the file parameter list 
(maximum characters per line, number of characters per word, media 
code, ASCII/BCD flag, etc.) will be set according to the value of a3. 


Value of a Action 


Binary (MTAPE, DISC, DRUM) 
Binary card (BCRDR, BCPNCH) 
BCD card (DCRDR, DCPNCH) 
BCD printer (PRNTR) 

ASCII printer 

Paper tape single (PTMODS) 
Paper tape double (PTMODD) 
Paper tape edit (PTMODE) 


NAUBLNEO 
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Examples 


SYSPARAM (8, 3, LINENO) 


On device 8 the value of the line pointer is assigned to variable 
LINENO. 


SYSPARAM (5, 10, 3) 


For device 5 the value of k is changed to 3; i.e., 3 or more blanks 
must follow a number in standard format. 


PRIMITIVE PROCEDURES 


INSYMBOL 


Form 


The following primitive procedures are available for use by the programmer 
but are not intended to be general purpose routines. 


To associate specific ALGOL symbols with specific integers; to read in a 
basic symbol from an external device as an integer. 


INSYMBOL (e, s, v) 


e: arithmetic expression 


St 


(called by value) 


string A 


v: integer variable 


Rules 


The basic symbols contained in the stringe 


are given integer 
values. 


The symbols are assigned from left to right to the positive integers 
1,2,3, etc. 


This procedure acts as follows: 


a. It reads in the next symbol from the input device. 

b. If it is a basic symbol which appears in the string "s", the 
variable v will be assigned the integer value associated with 
this symbol. 

Cc. If it is a basic symbol which does not appear in the string "s", 


v will receive a value of 0. 
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LENGTH 


If the input symbol is not an ALGOL basic symbol, v will receive 
a value of minus one. 


If there is no more data on the input device, v will receive a 
value of minus two. 


If the string "s" is null, i.e., INSYMBOL (e,"\,v), vo will 
receive the standard system value for the basic symbol. (See 
Appendix E.) 


To calculate the length of a given string. 


Form 


LENGTH (s) 


s: string 


Rules 
Ls The result of this procedure is an integer. 
2. It is equal to the number of basic symbols in the string "s" not 
including the outermost pair of string quotes. 
NAME 
To permit the saving or "remembering" of labels and procedure identifiers. 
Form 


NAME (v),V2,a,pP) 


v1,Vv2: integer variable 


a: statement label 


p: procedure identifier 


Rules 
1. Ifv 
v2. 
2. Ifv 
v2. 


1 has a value of 1, the integer associated with a is assigned to 


1 has a value of 3, the integer associated with p is assigned to 
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OUTSYMBOL 


If vy } a value of 2, control will be transferred to the label whose 
value the same as that of v2. (Note: v2 must have heen assigned 
the value of a label by a previous NAME statement.) If v2 = 0 the 


program will be terminated. 


If v) has a value of 4, control will be transferred to the procedure 
whose identifier has the same value as v2. (Note: v2 must have been 
assigned the value of a procedure identifier by a previous NAME 
statement.) If v2 = 0 the procedure will be a dummy procedure. 


The association of specific integers with labels and procedure 
identifiers holds only in the block in which the labels or identifiers 
are declared, i.e., the rules of scope for ALGOL block structure are 
obeyed. 


To associate ALGOL basic symbols with specific integers; to write out a 
basic symbol on an external device from an internally stored integer. 


Form 


OUTS 


e,,e 


Rules 


YMBOL (ey, 8, e2) 


2! arithmetic expression 
(called by value) 


s: string 


\ 


The basic symbols in the string "s" are given integer values. 


The positive integers 1,2,3, etc. are assigned to the symbols from 
left to right; leftmost = 1, next = 2, etc. 


This procedure acts as follows: 


a. It evaluates e2 and determines the integer which is closest to 
this value. 


b. If the value has an equivalent in string "s", the basic symbol 
corresponding to this value will be written on the cutput device. 


Cc. If the value has no equivalent in string "s" by being outside the 


bounds of the string, or if it is not a basic symbol, the % will 
be written on the output device. 


da. If the string “s" is null, i.e., OUTSYMBOL (e),"\,e2), the 


standard system values are used to determine the basic symbol 
which will be written on the output device. (See Appendix E.) 
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STRING ELEMENT 


To enable the scanning of a given string (actual or formal) in a machine 
independent manner. 


Form 

STRING ELEMENT (8) ,V1,52,V2) 

$1,832: string 

v),V2: variable 

Rules 

1. Variable vj determines which symbol of s is referenced, i.e., if v) = 
1 it is the leftmost symbol; if v) = 2, the next, etc. 

23: Once the symbol is chosen, its associated integer is assigned to 
variable v2. (Note: the associated integer is determined by encloding 
string s2 as was done with the string in the procedure INSYMBOL.) 

TYPE 


To determine the type of a number which is to be written out in standard 
format. 


Form 


TYPE (v1,V2) 
vi: variable 


v2: variable or string 


Rules 

1. If v2 is a string, v, is set equal to 4. 

var If v2 is a variable, v) is assigned a different value depending on the 
type of v2 as follows: 
a. If v2 is 'INTEGER', v) -1l. 
b. If v2 is 'REAL', v)~2. 
c. If vg is 'BOOLEAN', v,~3. 
d. If v2 is 'EXTENDED REAL', v) +8. 
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LIST PROCEDURE % 


This procedure is written by the programmer to be used with the I/0 
procedures provided by ALGOL. It provides a list of the data items to be 
transmitted. The identifier for this procedure is not reserved by ALGOL; thus, 
any valid identifier may be chosen. 


List Procedure 


To list a sequence of quantities to be transmitted for input or output; 
this list is used in conjunction with the format items of a FORMAT call. 


Form 


"PROCEDURE' name (ident); s 
name: procedure identifier 
ident: identifier 


Ss: simple statement or block 


Rules 

a Us The formal parameter "ident" appears in the body of the list procedure 
as a procedure identifier. 

2. Each item to be transmitted for input or output appears in the 
procedure body as the parameter for procedure ident. 

Example: 
"PROCEDURE' A(X); 'BEGIN' X(M); X(N).' X(P) "END! 
M, N and P are transmitted. 

Se When the list procedure is called by a data transmission procedure 
(INLIST or OUTLIST), an internal system procedure (INITEM or OUTITEM) 
will be the actual parameter corresponding to the formal parameter 
"ident," and thus will be substituted for "ident" in the list 
procedure body. 

4, Execution of the list procedure causes the internal system procedure 
(INITEM or OUTITEM) to be executed. INITEM or OUTITEM has as its 
parameter the item to be transmitted. 

5. This parameter may be an arithmetic expression, Boolean expression or 
a string for output. However, the parameter may be only a variable or 
subscripted variable for input. 

6. The item is called by name by the internal system procedure and its 
value is transmitted for input or output. 

7. The sequence of statements in the list procedure body determines the 
sequence in which the items are transmitted for input or output. 

8. All ALGOL statements are permissible in a list procedure including a 


call to one or more of the layout prcvedures. 
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Examples 


‘PROCEDURE’ LIST (NAME) ; 
"BEGIN' NAME(X); NAME (¥t3*Z); 
NAME ("TOTAL\) 'END' 


The identifier NAME is replaced by a system procedure name 
list procedure is called. xX,Y1t3*2 and "TOTAL\ are parameters 
system procedure and their values will be transmitted. 


"PROCEDURE' MANY (ITEM) ; 

'FOR' I-1 'STEP' 1 'UNTIL' 

10 'DO' 'BEGIN' ITEM (A(I]); 

ITEM (B[I]) ‘END' i 


The items to be transmitted are A),B,,A2,B2,.-+, A10,BlO- 


when the 
to this 
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APPENDIX A. 


RESERVED IDENTIFIERS 


The following list enumerates reserved identifiers. These identify 
functions and procedures which are available without explicit declarations. 
These functions and procedures are assumed to be declared in a block external to 


the program. However, a programmer may redeclare a reserved identifier, in 
which case the reserved meaning is superseded. 


The reserved identifiers are as follows: 


ABS INLIST OUTPUT 7 
ARCTAN INPUT 0 OUTPUT 8 
BAD DATA INPUT 1 OUTPUT 9 
CLOCK INPUT 2 OUTSYMBOL 
cos INPUT 3 PACK 
DATE INPUT 4 RDCHAR 
DUMP INPUT 5 RDREC 
ENTIER INPUT 6 SENSE 
EQUIV INPUT 7 SIGN 
ERRNO INPUT 8 SIN 

EXP INPUT 9 SPACE 
FORMAT INSYMBOL SORT 
FORMAT 0 LENGTH STRINGELEMENT 
FORMAT 1 LN SYSPARAM 
FORMAT 2 NAME TABULATION 
FORMAT 3 NO DATA TIME 4 
FORMAT 4 OUTLIST TRANSMIT 
FORMAT 5 OUTPUT 0 TYPE 
FORMAT 6 OUTPUT 1 UNPACK 
FORMAT 7 OUTPUT 2 VEND 
FORMAT 8 OUTPUT 3 VLIM 
FORMAT 9 OUTPUT 4 WICHAR 
HEND OUTPUT 5 WIREC 
HLIM OUTPUT 6 
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APPENDIX B. 


MATHEMATICAL AND MISCELLANEOUS FUNCTIONS 


MATHEMATICAL FUNCTIONS 


Form Description 
ABS (e) absolute value of the expression e 
ARCTAN (e) principal value of the arctangent of e 
cos (e) cosine of e 
ENTIER (e) the integral part of e 
EXP (e) exponential function of e 
LN (e) natural logarithm of e 
SIGN (e) sign of e (+1 if e>0, 0 if e = 0, -1 if e<0) 
SIN (e) sine of e 
SQRT (e) square root of e 
These functions are available without explicit declarations. They are 


assumed to be declared in a block external to the program. However, a programmer 
may redeclare a mathematical function identifier, in which case the standard 
meaning is superseded. 


These functions accept parameters of types 'REAL', ‘EXTENDED REAL' and 
‘INTEGER'. They all yield values of type 'EXTENDED REAL', except for ENTIER(e) 
and SIGN(e) which yield values of type 'INTEGER'. 


\ 


The parameters of these functions are treated as 'VALUE' parameters. 


MISCELLANEOUS FUNCTIONS 


DATE is an integer procedure which returns the current date expressed as an 
integer. For example, August 1, 1968, would be returned as 80,168. 


SPACE is an integer procedure which returns the number of words of memory 
available in the stack. 


CLOCK is an extended-real procedure which returns the time of day expressed in 
hours past midnight. 


TIME is an extended-real procedure which returns the amount of processor time 
expended, expressed in seconds. 


SENSE (e) is a Boolean procedure which returns the setting of the program 
switch word for the bit indicated by the parameter e. The parameter is an 
arithmetic expression. It has a value from 1 to 6 corresponding to the 
options ON] through ON6 on the $ EXECUTE card. 
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ERRNO 


DUMP 


PACK 


(e) performs one of two functions: 


1. If the value of the parameter e is positive, a message of the form 
<<< ERROR NUMBER XX >>> is printed, where XX is the value of the 
parameter. 

25, If the value is negative, it replaces the maximum error count (which 


is the maximum number of error messages which may be printed before 
the execution is aborted). The maximum error count is currently 
five. 


is a procedure which gives a trace of the procedural and nonprocedural 
stacks. The ON6 option on the $ EXECUTE control card must also be used. 
If the ON6 option has not been used, then the call is ignored. This 
allows the user to call DUMP in the source program, but to determine the 
need for the trace at execution time. 


To pack bits together into a word. 


Form 


PACK (S,I,L); 


S: 


I: 


Rules 


string 
identifier 


list procedure 


The routine packs bits coming from the list procedure into I according 
to the string Ss. 


I is the identifier of the resulting packed word. 


L is a procedure which lists the values which are to be _ packed 
together. 


The string consists of a set of integers separated by commas. 
“nl,n2,n3,...\ 


The rightmost nl bits of the first value received from the list 
procedure will be stored into the leftmost nl bits of the variable I. 


The rightmost n2 bits of the second value received from the list 
procedure will be stored into the next n2 bits (after nl) of the 
variable I. Saks! 


An integer in the string may have a trailing Z. This causes zeros to 


be placed in that field in the output variable. In addition, the list 
procedure is not invoked for that field. 
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Examples 


l. *"PROCEDURE' LIST(P); 'BEGIN' 
P(6);P(5);P(4);P(3)7P(2);P(1); ‘END’; 
‘INTEGER’ I; 


PACK ("6,6,6,6,6,6\,1, LIST); 
This would result in: I-060504030201 


2. ‘INTEGER' I,J,K; 
*PROCEDURE' LIST(P); 'BEGIN' 
P(I);P(J); "END! 
I:=70;S:=423 
PACK("9,21\,K, LIST); 


This would result in: K+106000005200 (remembering that 70 decimal is 
106 octal, and 42 decimal is 52 octal). 


35 ‘INTEGER' 1,J,K; 
"PROCEDURE' LIST(P); 'BEGIN' 
P(I);P(J); 'END'; 
1:63; 5:=3; 
PACK ("32,6,3\,K,LIST) ; 


This would result in: K=077300000000 (again remembering that 63 
decimal is 77 octal). 


UNPACK 


To unpack parts (bits) of a word into separate words. 


Form 


UNPACK(S,I,L); \ 


string 
I: identifier 


L: list procedure 


Rules 


1. The routine unpacks bits from I into variables given by the list 
procedure according to the string S. : 

2. I is the identifier of the word to be unpacked. 

Bia L is the procedure which lists the variables which are to receive the 


unpacked bits. 


4. The string consists of a set of integers separated by commas. 
"nl,n2,n3,..N 


5. The leftmost nl bits of the variable I are stored into the rightmost 
nl bits of the first variable given in the list procedure. 
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6. Then the next n2 bits (after nl) of the variable I are stored into the 
rightmost n2 bits of the second variable given in the list procedure. 


Example 


"REAL' X; 'INTEGER' I,J; 

"PROCEDURE' LIST(P); 'BEGIN' 
P(I);P(J); 'END'; 
X:=1.55 

UNPACK("9,27\,X,LIST) ; 


This would result in: 


1=000000000002 
J=000600000000 


APPENDIX C. 


DETAILED EXPLANATION OF INLIST AND OUTLIST 


INLIST 
Assume: 
i. INLIST has been called. 
26 Lines 1,2,...,p' of the current page have been read. 
ae Characters 1,2,...,p of the current line (line p' + 1) have been read. 
4. At the beginning of the program p = p' = 0, 
Ss, Symbols P and P' denote line size and page size respectively. 
6. There are eight hidden variables Hl, H2,...H8 which correspond to the 
eight layout procedures as follows: 
Hl - FORMAT 
H2 - HLIM 
H3 - VLIM 
H4 - HEND 
H5 - VEND 
H6 - TABULATION { 
H7 - NO DATA 
H8 - BAD DATA 
7. The left margin of HLIM is L. 
The right margin of HLIM is R. 
The top margin of VLIM is L'. 
The bottom margin of VLIM is R'. 
STEP 1. (Initialization) 
The hidden variables are set to standard values: 
HL is set to the "standard" format. 
H2 is set so that L=1, R=. 
H3 is set so that L' = 1, R' =@, 
H4 is set so that the three parameters are all effectively equal to the 
dummy procedure defined as follows: 'PROCEDURE' DUMMY;;. 
HS is set so that the three parameters are all effectively equal to the 


dummy procedure, DUMMY. 
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H6 is set so that TAB = 1. 
H7 is set to terminate the program in case the data ends. 


HES is set to terminate the program if an unacceptable character is 
received for format translation. 


STEP 2. (Layout) 


The layout procedure is called; this may change some of the variables Hl, 
H2, H3, H4, H5, H6, H7, H8. Set T to 'FALSE'. (T is a Boolean variable used to 
control the sequencing of data with respect to title, formats; T = 'TRUE' means a 
value has been requested of the procedure which has ‘not yet been input.) 


STEP 3. (Communication with List Procedure) 


The next format item of the format string is examined. (Note: after the 
format string is exhausted, "standard" format is used from then on until the end 
of the procedure. In particular, if the format string is " , standard format is 
used throughout.) Now if the next format item is a title format, that is, 
requires no data item, we proceed directly to Step 4. If T = 'TRUE', proceed to 
Step 4, Otherwise, the list procedure is activated. This is done the first time 
by calling the list procedure, using as actual parameter a procedure named IN 
ITEM. 


\ 

This is done on all subsequent times by merely returning from the procedure 
IN ITEM which will cause the list procedure to be continued from the latest IN 
ITEM call. (Note: the identifier IN ITEM has scope local to IN LIST so a 
programmer may not call this procedure directly.) After the list procedure has 
been activated in this way, it will either terminate or will call the procedure 
IN ITEM, In the former case, the input process is completed; in the latter case, 
Y is set to 'TRUE', ‘Then any assignments to hidden variables that the list 
procedure may have invoked will cause adjustment to the variables Hl, H2, H3, 
H4, HS, H6, H7, H8, (which are local to IN ITEM). We then continue at Step 4. 


STEP 4. (Alignment Marks) 


If the next format item includes alignment marks at its left, remove them 
from the format and execute process A (a subroutine below) for each "/", process 
B for each "t", and process C for each "J". 


STEP 5, (Get within Margins) 


Execute process G to ensure proper page and line alignment. 


STEP 6. (Formatting for Input) 


Take the next item from the format string. 
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NOTES: 


In unusual cases, the list procedure or an overflow procedure may have 
called the descriptive procedure FORMAT thereby changing the format string. In 
such cases, the new format string is examined from the beginning; and it is 
conceivable that the format items examined in Steps 3, 4, and 6 might be three 
different formats. But at this point the current format item is effectively 
removed from the format string and copied elsewhere so that the format string 


itself, possibly changed by further calls of FORMAT, will not be interrogated 
until the next occurrence of Step 3. 


Alignment marks at the left of the format item are ignored. If the format 
item is not composed only of alignment marks and insertions, the value of T is 
examined. If T = 'FALSE', undefined action takes place (the programmer has 
substituted a nontitle format for a title format in an overflow procedure, and 
this is not allowed). Otherwise, T is set to 'FALSE'. If the format item is "A" 
or "N", set s = 1 and go to Step 7; otherwise, the number of characters, Ss, 
needed to input the format item for the present medium is determined, and it is 
assumed that the same number of character positions will be used in the input 
medium for this item, 


STEP 7. (Check for Overflow) 


If the present item uses "N" format, the character positions p + 1, p + 
2,... are examined until either a proper termination of the number has_ been 
found, or position min (R,P) has been reached with no sign, digit, decimal 
point, or "'" encountered. In the former case, set s to the number of character 
positions occupied by the number, including preceding and embedded blanks and 
the termination character, and then go to Step 9; in the latter case, go to Step 
8 with p = min (R,P). 


If the present item uses "A" format, the character position p + 1 is 
examined, if it contains "7", set p = min (R,P) and.go to Step 8, otherwise 
input characters starting from position p + 1 until a {basic symbol has been 
input. Set s to the number of characters denoting the basic symbol and go to 


Step 9. Finally, if neither "N" nor "A" format is used, go to Step 8 or Step 9 
according as p + s > min (R,P) or not. 


STEP 8. (Processing of Overflow) 


Perform process H (p + s). Then proceed as follows: 


"N" format: Input characters until either finding a number followed by a 
proper termination (go to Step 9) or until reaching position min (R,P). In _ the 
latter case, a partial number may have been examined; repeat Step 8 until a 
number properly terminated has been input. In the former case, set s to the 
number of positions occupied by that portion of the number lying to the right of 
p, including embedded blanks and the termination character, then go to Step 9. 


"A" format: Input characters as with "N" format until a basic symbol has 
been input. (This basic symbol necessarily takes several character positions on 
the medium.) 


Other: If p + s< Rand p +s < P, go to Step 9; otherwise input k = min 
(R,P) - p characters, set p = min (R7P), decrease s by k, and repeat this step. 
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STEP 9. (Finish the Item) 


If neither "A" nor "N" format is being used, input s characters. Determine 
the value of the item that was input here, or Steps 7 and 8 in case of "A" or y 


"N" format, using the rules of format. Assign this value to the actual parameter 
of IN ITEM unless a title format was specified. Increase p by s. 


Any alignment marks at the right of the format item now cause activation of 
process A for each "/", process B-for each "1", and process C for each "J". 
Return to Step 3. 


PROCESS A. ("/" Operation) 


Check page alignment with process F, then execute process. D and call ° 
procedure pl of HEND. 


PROCESS B. ("1" Operation) 


If p > 0, execute process D and call procedure pl of HEND. Then execute 
process E and call procedure pl of VEND. 


PROCESS C. ("J" Operation) } 


Check page and line alignment with process G. Then let k = ((p- L + 1)% 
TAB + 1) x TAB + L - 1 (the next "tab" setting for p), where TAB is the "tab" Pp 
spacing for this channel. If k > min (R,P), perform process H(k); otherwise skip 
over character positions until p = k. 


PROCESS D. (New Line) 


Skip the input medium to the next "line", set p = 0, and set p' = p' + 1. 


PROCESS E. (New Page) 


skip the input medium to the next "page", and set p = 0. 


PROCESS F. (Page Alignment) 


If p' + 1 < L', execute process D until p' = L' - 1. 
If p' + 1 > R', execute process E, call procedure p2 of VEND and repeat process 


If p' + 1 > P', execute process D, call procedure p3 of VEND and repeat process 


F. 
This process must terminate because 1 < L' < R' and 1< L' < P'. If a programmer 
chooses a value of L' > P', L' is set equal to 1. 
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PROCESS G. (Page and Line Alignment) 


Execute process F, Then, 
If p +1 <1, skip over character positions until p + 1 = L. 
If p+ 1> Ror p+1 >P, perform process H (p + 1). 
This process must terminate because 1 < L Rand1l<L 
chooses a value of L > P, L is set equal to l. ee 


A 
A 
H 
m 


PROCESS H(k). (Line Overflow) 


Perform process D, 
Then perform process G to ensure page and line alignment. Note: 


programmer 


If k > R, call procedure p2 of HEND; otherwise call p3. 


upon return 


from any of the overflow procedures, and assignments to hidden variables that 
have been made by calls on descriptive procedures will cause adjustment to the 


corresponding variables Hl, H2, H3, H4, H5, H6, H7, H8. 


EXAMPLE: 


Notice that the programmer has the ability to determine the 
absence of data on a card when using standard format, because 
overflow is defined. The following program, for example, will count 
of data items on a single input card and will read them 
A(2),...,A{n]. (Assume unit 5 is a card reader.) 


"PROCEDURE' LAY; HEND (EXIT, EXIT, EXIT); 
"PROCEDURE' LIST (ITEM); ITEM (A{N+1]); 
"PROCEDURE' EXIT; 'GOTO' L2; 

N-0; LI: INLIST (5, LAY, LIST); 

N-N + 1; 'GOTO' LI; 


presence of 
of the way 
the number n 
into A(l], 


L233 
\ 
OUTLIST 
Assume: 
1. OUTLIST has been called. 
Zs Lines 1,2,...,p' of the current page have been completed. 
3. Characters 1,2,...,p of the current line (line p' + 1) have been 
completed. 
4. At the beginning of the program p = p' = 0. 
Ss, Symbols P and P' denote the line size and page size respectively. 
6. There are eight hidden variables H1,H2,...,H8 which correspond to the 
eight layout procedures as follows: 
Hl - FORMAT 
H2 - HLIM 
H3 - VLIM 
H4 - HEND 
HS - VEND 
H6 - TABULATION 
H7 - NO DATA 
H8 - BAD DATA 


BS1l 


7. The left margin of HLIM is L. 
The right margin of HLIM is R. 
The top margin of VLIM is L'. 
The bottom margin of VLIM is R'. 


STEP 1, (Initialization) 


The hidden variables are set to the following standard values: 
Hl is set to the "standard" format. 

H2 is set so that L= 1, R=o, 

H3 is set so that L' = 1, R' =e, 


Ha is set so that the three parameters are all effectively equal to the 
dummy procedure defined as follows: 'PROCEDURE' DUMMY;;. 


HS is set so that the three parameters are all effectively equal to the 
dummy procedure, DUMMY. 


H6 is set so that TAB = l. 


STEP 2. (Set-Up) 


The set-up procedure ig called; this may change some of the variables Hl, 
H2, H3, H4, H5, H6. Set T to 'FALSE'. (T is a Boolean variable used to control 
the sequencing of data with respect to title formats; T = 'TRUE' means a value 
has been transmitted to the procedure which has not yet been output.) 


STEP 3. (Communication with List Procedure) 


The next format item of the format string is examined. (Note: after the 
format string is exhausted, "standard" format is used from then on until the end 
of the procedure. In particular, if the format string is " , standard format is 
used throughout.) Now if the next format item is a title format, that is, 
requires no data item, we proceed directly to Step 4. If T = 'TRUE' proceed to 


Step 4, Otherwise, the list procedure is activated; this is done the first time 
by calling the list procedure, using as actual parameter a procedure named OUT 
ITEM; this is done on subsequent times by merely returning from the procedure 
OUT ITEM, which will cause the list procedure to be continued from the latest 
OUT ITEM call. 


(Note. The identifier OUT ITEM has scope local to OUT LIST, so a 
programmer may not call this procedure directly.) After the list Frocedure has 
been activated in this way, it will either terminate or will call the procedure 
OUT ITEM. In the former case, the output process is completed; ir the latter 
case, T is set to 'TRUE' and any assignments to hidden variables that the list 
procedure may have invoked will cause adjustment to the variables Hl, H2, H3, 
H4, H5, H6 (which are local to OUT ITEM) and we then continue to Step 4. 
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STEP 4. (Alignment Marks) 


If the next format item includes alignment marks at its left remove them 
from the format and execute process A (a subroutine below) for each "/", process 
B for each "t", and process C for each "J", 


STEP 5, (Get Within Margins) 


Execute process G to ensure proper page and line alignment. 


STEP 6. (Formatting the Output) 


Take the next item from the format string. 


NOTES: 


In unusual cases, the list procedure or an overflow procedure may have 
called the descriptive procedure FORMAT, thereby changing the format string. In 
such cases, the new format string is examined from the beginning, and it is 
conceivable that the format items examined in Steps 3, 4, 6 might be three 
different formats. But at this point the current format item is effectively 
removed from the format string and copied elsewhere, so that the format string 


itself, possibly changed by further calls of FORMAT, will not be interrogated 
until the next occurrence of Step 3. 


Alignment marks at the left of the format item are ignored. If the format 
item is not composed only of alignment marks and insertions, the vatue of T is 
examined. If T’= 'FALSE', undefined action takes place (the prc srammer has 
substituted a nontitle format for a title format in an overflow procedure, and 
this is not allowed). Otherwise, the output item is evaluated and T is set to 
"FALSE'. Now the rules of format are applied, and the characters X X ...X which 
represent the formatted output on the external medium are determined. (Note 
that the number of characters, s, may depend on the value being output, using 
"A" or "S" format, as well as on the output medium.) 


STEP 7. (Check for Overflow) 


If p + s < R and p + s < P, where s is the size of the item as determined 
in Step 6, the item will fit™on this line, so go on to Step 3. Otherwise, if the 
present item uses format, output a special symbol "y" which is recognizably 


not a basic symbol; this is done to ensure the input will be inverse to output. 
Go to Step 8. 


STEP 8. (Processing of Overflow) 


Perform process H (p + s). Then, if p + s < R and p + s < P, go to Step 9; 
otherwise let k = min (R,P) - p. Output X)X2...Xx, set p= min (R,P) and then 
let X)X2...Xg-x = Xx+1 + Xx+2-..Xg. Decrease s by k and repeat Step 8. 
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STEP 9, (Finish the Item) 


Output X,X2...Xg, and increase p by s. Any alignment marks at the right of 
the format item now cause activation of process A for each "/", process B for 
each "t", and process C for each "J". Return to Step 8. 


PROCESS A, ("/" Operation) 


Check page alignment with process F, then execute process D and call 
procedure pl of HEND. 


PROCESS B. ("t" Operation) 


If p > 0, execute process D and call procedure pl of HEND. Then execute 
process E and call procedure pl of VEND. 


PROCESS C. ("J" Operation) 


Check page and line alignment with process G. Then let k = ((p-L+l) % TAB 
+1) x TAB + L - 1 (the next "tab" setting for p), where TAB is the “tab” 
spacing for this channel. If k > min (R,P), perform process H(k); otherwise 
effectively insert blanks until p = k. 


\ 
PROCESS D. (New Line) 
Skip the output medium to the next "line", set p = 0, and set p' = p' +l. 
PROCESS E. (New Page) 
Skip the output medium to the next "page", and set p' = 0. 
PROCESS F. (Page Alignment) 
If p' + 1 < L' execute process D until p' = L' - l. TE pe OD > ERM, 


execute process E, call procedure p2 of VEND, and repeat process F. 


If p' + 1> P', execute process E, call procedure p3 of VEND and repeat process 
F. 


This process must terminate because 1 < L' < R' and 1 <¢ L sg pP',.If a 
programmer chooses a value of L' > P', L' is set equal to l. 
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PROCESS G. (Page and Line Alignment) 

Execute process F. Then if p +1 < L, effectively output blank spaces 
until p+1=L. 
If p + 1>R or p + 1 >P, perform process H (p + 1). 


This process must terminate because 1 <lsRandl<bL s P. If a programmer 
chooses a value of L >P, L is set equal to l. = 


PROCESS H(k). (Line Overflow) 


Perform process D. If k > R, call procedure p2 of HFND; otherwise, call 
procedure p3 of HEND. Then perform process G to ensure page and line alignment. 
Note: upon return from any of the overflow procedures, any assignments to hidden 
variables that have been made by calls on descriptive procedures will cause 
adjustment to the corresponding variables Hl, H2, H3, H4, H5, H6. 
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APPENDIX D. 


PROCEDURES FOR PREPARING ALGOL PROGRAMS FOR COMPILATION AND EXECUTION 


An ALGOL compilation will consist of either a block or a procedure 
declaration, In the first case, what is produced is a free-standing program 
which may call external procedures but which is assumed to operate otherwise as 
a free-standing program. In the second case the result is a separately compiled 
procedure which may be called by another program. 


Users create programs by entering ALGOL statements into remote and local 


peripheral or terminal devices which are connected to a computer operating under 
the operating system, 


Three modes of operation are available to the user: local batch, remote 
batch, and time-sharing. The only user differences among the three modes are the 
I/O device assignments for the system output and input files, the presence of 
necessary user-GCOS communication via control cards or command language, and the 
assumed compiler options for the compilation process 


BATCH MODE 


In the local batch mode, the system I/O devices are the card reader card 
punch and line printer. The user communicates directl} with the operating system 
“for system services via the control cards and the usable slave mode 
instructions. The execution of user programs submitted via the local batch mode 
is carried out directly under the operating system. The user's program exists as 
a separate batch job. Input processing is performed by System Input. 


The remote batch mode is equivalent to the local batch mode in capability. 
The only difference is the assignment of the system 1/0 device to the remote 
terminal as remote files (not direct access) rather than to the local card 
reader and local printer/punch. 


BATCH CALL CARD 
The system call card for ALGOL in batch mode is: 


1 8 16 (operand field) 
$ ALGOL Options 
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Operand Field: 


The operand field specifies the system options, The following options are 
available with ALGOL (standard batch options are underlined): 

LSTIN - A listing of source input will be prepared by the ALGOL compiler. 

NLSTIN ~ No listing of the source input will be prepared. 

LsTOU - A listing of the compiled object program output will be prepared. 

NLSTOU ~ No listing of the compiled object program output will be prepared. 

DECK - A binary object program deck will be prepared as output. 

NDECK ~- No binary object program deck will be prepared. 

COMDK - A compressed source deck will be prepared as output. 

NCOMDK - No compressed source deck will be prepared as output. 

SYMTAB - A symbol cross reference report will be prepared as output. 


DEBUG - Source line numbers will be printed with error messages at 
execution time. 


NDEBUG - Source line numbers will not be printed with error messages at 
5 execution time. 


DUMP - Slave core dump will be given if the compilation activity 
terminates abriormally. 


NDUMP - Program registers upper SSA, and slave program prefix will be 
dumped if the compilation activity terminates abnormally. 


SAMPLE BATCH DECK SETUP 


The following are the required control cards for the compilation and 
execution of a batch ALGOL activity. The $ control cards are fully described in 
the Control Cards Reference Manual. 


1 8 16 

$ SNUMB 

$ IDENT 

$ OPTION ALGOL 

$s ALGOL Options 

: ALGOL Source Deck(s) 

$ EXECUTE Options 

$ FFILE 
{5 < physical device assignment > \ 
$ ENDJOB 

***EOF 


The $ OPTION card with option ALGOL is required for every execution 
activity containing at least one deck produced by the ALGOL compiler. It must be 
the first card of the execution activity. Other options, as desired, may be used 
on this card but ALGOL is required. 
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The $ FFILE and physical device assignment cards are enclosed in braces to 
indicate that they may or may not be required for a particular activity. Cards 
of the form $ TAPE or $ FFILE option define physical devices which are to be 
associated with files referenced in the ALGOL program through calls on the 
input/output data transmission procedures. A card of this type is required for 


every referenced file other than 05 and 06 and input files produced with the 
$ DATA card. 


The $ FFILE card provides fine control over the characteristics of each 
logical field. The $ FFILE card option DSTCOD (used only with programs generated 
by the ALGOL compiler) is of the form: 


DSTCOD/ (XXX) 


where XXX may be any of the following: 


Mnemonic Device 

PRNTR Line Printer 

BCRDR Card Reader (Binary) 
DCRDR Card Reader (Decimal) 
BCPNCH Card Punch (Binary) 
DCPNCH Card Punch (Decimal) 
MTAPE Magnetic Tape 

DISC Disk 

DRUM Drum 

PTMODS 5/6 channel paper tape 
PTMODD 7/8 channel paper tape 


The destination code subfield (DSTCOD) defines the type of logical device 
which is to be associated with a file, independent of the physical device on 
which the file may reside. In this way the system limits, i.e., P and P', for a 
file are defined. For example, to produce a listing file which must be saved on 
tape for future reference, a $ TAPE DSTCOD/(PRNTR) would define the output as 
destined for a line printer. In the absence of the $ FFILE card or the DSTCOD 
subfield the logical device will be assumed to be the same as the physical 
device. 4 


TIME-SHARING OPERATION 


Command Language 


The standard means of communication with the Time-Sharing System (TSS) is 
by way of a teletypewriter used as a remote terminal. Other compatible devices 
may also be used, but use of a teletypewriter is assumed in this manual. The 
user may choose either the keyboard/printer or paper-tape teletypewriter unit 
for input/output, or combine both. In either case, the information transmitted 
to and from the system is displayed on the terminal-printer. Keyboard input will 
be used for purposes of description; instructions for the use of paper tape are 
given under "Paper Tape Input" in this appendix. 
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The user “controls" the time-sharing system primarily by means of a command 
language, a language distinct from any of the specialized programming languages 
that are recognized by the individual time-sharing compilers/processors (e.g., 
the Time-Sharing FORTRAN language). The command language is, for the most part, 
the same for users of any component of the time-sharing system; i.e., FORTRAN, 
BASIC, Text Editor, etc. A few of the commands pertain to only one or another of 
the component time-sharing systems, but the majority of them are, in form and 
meaning, common to all component systems. 


The commands relate to the generation, modification, and disposition of 
program and data files, and program compilation/execution requests. The complete 
time-sharing command language is described in Time-Sharing System General 
Information Manual. Se 


Once communication with the system has been established, any question or 
request from the system must be answered within ten minutes, except for the 
initial requests for user identification (user-ID) and sign-on password, which 
must be given within one minute. If these time limits are exceeded, the user's 
terminal will be disconnected. 


D-4 BS1l 


Time-Sharing Commands for ALGOL 


Valid time-sharing system commands for ALGOL are listed in Table D-1l. 


These commands are fully described in the Time-Sharing System General 
Information Manual. fav west 


Table D-1. ALGOL Time-Sharing System Commands 


Applicable 
At 
Command Build Mode 
ae ee Ce ne ee ee ee 
ABC Yes 
ACCESS Yes 
ASCASC Yes 
ASCBCD Yes 
2 AUTOMATIC Yes 
BCDASC Yes 
BPRINT Yes 
BPUNCH Yes 
BYE Yes 
CATALOG Yes 
@ DELETE Yes 
DONE Yes 
EDIT Yes 
@ ERASE Yes 
FDUMP Yes 
GET Yes 
HELP Yes 
HOLD Yes 
JABT Yes 
JOuT Yes 
JSTS Yes 
LENGTH Yes 
a LIB Yes 
LIstT Yes 
2 NEW Yes 
NEWUSER yes* 
NO PARITY Yes 
2 oLD Yes 
PARITY Yes 
@ PERM Yes 
@ PRINT Yes 
& PURGE Yes 
RECOVER Yes 
#RECOVER No 
@ RELEASE Yes 
REMOVE Yes 
RESAVE Yes 
2 RESEQUENCE Yes 
ROLLBACK Yes 
#ROLLBACK No 
@ RUN Yes 
3 SAVE Yes 
SCAN Yes 
SEND Yes 
STATUS Yes 
& SYSTEM Yes 
* TAPE Yes 


@not applicable at subsystem-selection level 
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Log-on Procedure 


The user, to in. 
the following steps: 


riate communication with the time-sharing system, performs 


e Turne on the terminal unit 
e Obtains a djal-tone 
e@ Dials one of the numbers of his time-sharing center 


The user wil ther receive either a high-pitched tone indicating that his 
terminal has been connected to the computer or a busy signal. The busy signal 
indicates, of course, thac no free line is presently available. 


Once the user's terminal has been connected to the computer, the 
time-sharing system begins the log-on procedure by transmitting the following 
message: 


His SERIES 6600, SERIES J60 OWN (date) AT (time) CHANNEL (nnnn) 


where time is given in heurs and thoi ndths of hours (hh.hnh), and nnnn is the 
user's line number. 


Following this message, the system asks for the user's identification: 
USER ID -- 


The user respends, cn the sam line, with the user-ID that has been 
assigned to him by the time~shasing installation management. This user-ID 
uniquely identifies a particular er already known to the system, for the 
purposes of lucating his programs and files and accounting for his usage of the 
time-sharing resources allocated to him. An example request and response might 
be: 

, \ 


USER ID -- J.P.JONES 


Note: A carriage return must be given {cilowing any complete response, command, 
or line of information typed by the user. 


(The user's cesponse is underlined here for illustration). After the user 
responds with his user-ID, the system asks for the sign-on password that was 
assigned to him along with his aser-ID, as tollows: 


PASSWORD 
KHEBEKBUIXKE 


The user types his password directiy on the "strikeover" mask provided 
below the request PASSWORD. The password is used by the system as a check on the 
legitimacy of the named user. The "strikeover" mask insures that the password, 
when typed, cannot: be read by anothe: person. (In the event that either the 
user-ID or password is twite aiven incorrectly, the user's terminal is 
immediately disconnected fror the system.) At this point, if the accumulated 
charges for the user's past e-siiaring usage equals or slightly exceeds 100 
per cent of his current resource allocation, he will receive a warning message. 
If his accumulated charges exceeds 110 pe: cent of his current resources, he 
receives the message: 


RESOURCES EXHAUSTED - CANNOT ACCEPT YOU 


and his terminal is immediately disconnected. (The user may also receive the 
following information message if his situation warrants it: 


n BLOCKS FILE SPACE AVAILABLE 


(This condition does not affect the log-on procedure.) 
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Assuming that the user has responded with a legitimate user-ID and password 
and has not over-extended his resources, the time-sharing system then asks the 
user to select the processing system that he wants to work with; this is called 
the system-selection request. In this case, the user would respond with ALGOL: 


SYSTEM ? ALGOL 


The user is then asked whether he now wants to enter a new program (NEW) or 
if he wants’to retrieve and work with a previously entered and saved program 
(OLD); the request message is: 


OLD OR NEW - 


If the user wishes to start a new program (i.e., build a new source file), 
he responds simply with: 


NEW 


If, on the other hand, he wants to recall an old source-program file, he 
responds with: 


OLD filename 


where filename is the name of the file on which the old program was saved during 
a previous session at the terminal (see the SAVE command). 


Following either response, the system types the message "READY", returns 


the carriage, and prints an asterisk in the first character position of the next 
line: 


READY 
* 


An example of a complete log-on procedure, up to the point where the ALGOL 
system is ready to accept program input or control commands, might be as 
follows: 


HIS SERIES 6000, SERIES 600 ON 10/14/71 AT 14.768 CHANNEL 0012 
\ 


USER ID - J.P.JONES 


PASSWORD 

AESHEKSHIXKE - (user's password is typed over the mask) 

SYSTEM - ALGOL 

OLD OR NEW ~ NEW - (NEW is shown arbitrarily for 
illustration) 

READY 


* - (the user begins entering input on this 


line) 
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Entering Program - Statement Input 


After the message: 


READY 
* 


the system is in build-mode (as indicated by the initial asterisk) and is ready 
to accept ALGOL program-statement input or control commands. All lines of input 
other than control commands are accumulated on the user's current file. Normally 
the current file will be the file that contains the program he wants to compile 
and run at this session. If he is building a new file (NEW response to OLD OR 
NEW--), his current file will initially be empty. If he has recalled an old file 
(OLD filename) the content of the named old file will initially be on his 
current file, and any input typed by the user -- excepting control commands -- 
will be either added to, merged into, or will replace lines in the current file, 
depending upon the relative line numbering of the lines in the file and the new 
input. (This process is explained under the heading "Correcting or Modifying a 
Program," below.) 


Following each line of noncommand-language input and the terminating 


carriage response, the system will supply another initial asterisk, indicating 
that it is ready to accept more input. 


Format _of Program - Statement Input 


A line of ALGOL input -- as distinct from a control command -- can contain 
one of the following: 


1. One or more ALGOL statements. 
2. A partial statement. 


3. A continuation of a statement left incomplete in the preceding line of 
input. 


4. A comment. 
5. A combination of (3) and (1) or (2), in chat order. 


6. A combination of (1) and (2). 


A line of input must begin with a line-sequence number of from one to six 
numeric characters. The line-sequence number facilitates correction and 
modification of the source program (described below); hereinafter, the 
line-sequence number will be referred to simply as the “line number". 


The line number is always terminated (immediately followed by) a 
non-numeric character. A line number must have a numeric value less than 2 
(262144), If the user wants a numeric in column 1 of an ALGOL statement, a pound 
sign (#) must immediately follow the line number. An input line consisting only 
of numbers or of numbers followed by a pound sign will be ignored by _ the 
compiler. In order to insert blank lines into a program, the line number must be 
followed by at least one blank. 
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5 


Correcting or Modifying a Program 


Keyboard input is sent to the computer and written onto the user's current 
file in units of complete lines. A line of terminal input is terminated by a 
carriage return and no part of the line is transmitted to the system until that 
carriage return is given. Therefore, corrections or modifications can be done at 
the terminal at two distinct levels: 


Yr Correction of a line-in-progress (i.e., a partial line not yet 
terminated) . 


2. Correction or modification of the program (i.e., the contents of the 
user's current source file) by the replacement or deletion of lines 
contained therein, or the insertion of new lines. 


The correction of a typing error that is detected by the user before the 
line is terminated can be done in one of two ways. He may delete one or more 


characters from the end of the partial line or he may cancel the incomplete line 
and start over. The rules are as follows: 


a. Use of the commercial "at" character (@) deletes from the line the 
character preceding the @ character; use of n consecutive @ characters 
deletes the n preceding characters (including blanks.) 


Examples: 
*ABCDF@E would result in ABCDE being transmitted to the program file. 


*ABCBDEF@@@@GHI would result in ABCGHJ being transmitted. (The 
characters to be deleted are underlined for illustration.) 


b. Use of the CTRL (control) and X keys, depressed simultaneously, causes 
all of the line to be deleted. The characters DEL are printed to 


indicate deletion and the carriage is automatically returned. For 
example: 


*ACDEFG CTRL/X DEL (all characters aetetea) 
* (ready for new input) 


Correction or modification of the current source file is done on the basis 
of line numbers and proceeds according to the following rules: 


Le Replacement.A numbered line will replace any identically numbered line 


that was previously typed or contained on the current file (i.e., the 
last entered line numbered nnn will be the only line numbered nnn in 
the file). 

2.) Deletion. A "line" consisting of only a line number (i.e., nnn) will 


cause the deletion of any identically numbered line that was 
previously typed or contained on the current file. 


3, Insertion. A line with a line-number value that falls between the 
ne-number values of two pre-existing lines will be inserted in the 

file between those two lines. If the line number is less than the 
first line number it is inserted at the beginning of the file; if 


greater than the largest line number, it is inserted at the end of the 
file. 
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At any point in the process of entering program-statement input, the LIST 


command may be given, which results in a "clean" 
file being printed. In this way, the results of any previous 


+ up-do~date copy of the current 
corrections or 


modifications can be verified visually. Following the response (or command) OLD 
filename, the LIST command can be used initially to inspect the contents of the 
Current source file (i.e., the "old" program) . 


The ALGOL Run Command 


The RUN command has the form: 


RUN H -nnn fs = fh; fc(options) flib # fe 


where: 


fs 


fh 


RUN H is the command RUN or RUN H, The latter form is used to 


display a heading line on the terminal giving date, 
time, and SNUMB. 


-nnn nnn is the maximum time in seconds of processor time, 


that the program is to be allowed for execution. 


is the set of file descriptors for source files in the standard 
BCD card image format, in compressed card image format (COMDK), 
or in time-sharing ASCII format and/or descriptors for binary 
card image object files. These files serve as inputs to the 
compiler and/or loader. Where a BCD or COMDK source file is 
supplied, fs may also include a descriptor for an alter file in 
BCD format. The alter file must begin with a $ UPDATE card and 
must be in alter number sequence. If there are many BCD or COMDK 
source files in the list, the alter file will update the first. 
Alternatively, the list fs May consist of a single file 


descriptor that points to a previously generated system loadable 
(H*) file. 


A file descriptor consisting of the single character * indicates 
the current file (*SRC). The list is optional and, when missing, 
indicates that only the current file (*SRC) is to be compiled. 


is a single file descriptor of a random file into which the 
system loadable file produced by the General Loader will be 
saved if the compilation is successful. This file will be 
written if no fatal errors occur during compilation. If the 
named file does not exist, a permanent random file of 36 blocks 
will be created and added to the user's catalog. If the field is 
missing, the H* file is generated into a temporary file. The 
presence of this option is valid only when the program indicated 
by the list fs, the ALGOL library, and the user library (if any) 
is bindable (no outstanding SYMREFs). If the General Loader 
indicates that outstanding SYMREFs exist, an executable H* file 
will be created, but any reference to an unsatisfied SYMREF will 
cause the program execution to be abnormally terminated (the 
General Loader inserts a MME GEBORT at references to unsatisfied 
SYMREFs. When a MME is encountered during the execution of a 
time-sharing subsystem, GCOS and the Time-Sharing Executive 
simulate an illegal operation fault.) 


must be included whenever fh, fc, (options), or flib options are 
desired. 


D-10 BSll 


we 


fc 


(options) 


is a single file descriptor of a sequential file into which the 
compiler is to place the binary (C*) result of any indicated 
compilation(s). One object module is written to this file for 
each source program in the file(s) given by fs. If the named 
file does not exist, a permanent linked file of 3 blocks will be 
created and added to the user's catalog. This file will expand 
as necessary to hold the object decks. In this case the field fs 
plus the libraries need not indicate a complete program 
(individual or collections of routines may be compiled and 
saved). When this optional field is missing, a C* file will not 
be generated. When present, the DECK option is turned on for the 
compilation process. 


is a list of options contained within parentheses and 
comma-separated, Some of these options affect the compilation 
process, and some the loading. The following compiler options 
are available for time-sharing; they are described under the 
$ ALGOL card; underlined is default. 


DEBUG - Source line numbers will be printed with error messages 
at execution time. 


NDEBUG - Source line numbers will not be printed. 


The remaining options have to do with the loading process. The 
underlined option is the default case. 


GO - The program will be executed at the completion of 
compilation. 
NOGO = The program will not be executed at the completion of 


the compilation. If specified, the object program will 
be saved. If no object (H*) save file is specified, 


only the compilation will be performed (the General 
Loader will not be called). 


ULIB - File descriptors exist following the end of the 
options field which locate user libraries which are 
to be searched for missing routines prior to 
searching for them in. the system library. 


NOLIB - No user libraries are to be used. 


TIME=nnn - The batch compilation and/or General Loader activity 
time limits will be set to nnn seconds; where nnn < 
180. If not specified, nnn is set to 60. 


CORE=nn - The batch compilation an/or General Loader activity 
core requirment will be set to nnk+9K or 23K, 


whichever is larger. If not specified, nn is set to 
16. 


URGC=nn - The urgency for the batch compilation and/or General 
Loader activity will be set to nn, where nn < 40. If 
not specified, nn is set to 40. 


TEST - A test version of the compiler and/or General Loader 
is to be used for the batch activity. There must be 
an accessed file (in the AFT) of the name ALGOL., If 
these two conditions are met, then file ALGOL will 
be allocated as file code ** in the batch activity. 


REMO - Temporary files created for the batch process will 
be removed from the AFT as they are no_ longer 
needed. This option keeps the number of files in the 
AFT down to a minimum but causes more time to be 
spent processing each RUN command. 
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NAME=name - Provides a name for the main link of the saved H* 
file. May be used both at time of creation of this 
file and subsequently as it is used. This name is 
placed in the SAVE/field of the $ OPTION card. 


flib is a sequence of file descriptors pointing to random files 
containing user libraries to be searched before the system 
library. 

# must be included whenever the fe option is desired. 

fe is a set of file descriptors for files which will be required 


during execution, Each descriptor must specify a file name (or 
an alternate name, if necessary) of the form nn, where 01 < nn < 
40. This name represents a logical file code referenced by 1/0 
statements in the program. I/O may be teletypewriter-directed by 
specifying a descriptor of the form "nn", File codes 05 and 06 


are implicitly defined for teletypewriter I/O and need not be 
mentioned in the run command. 


Log-Off Procedure 


To terminate one's current session with the time-sharing system and 
disconnect the terminal, the BYE command may be given either in build-mode or at 
the subsystem-selection level: 

*BYE 

or 


SYSTEM ? BYE 


In either case, a report of the user's time-sharing usage charges is given, 
as illustrated by the following example, and the terminal is disconnected: 


**RESOURCES USED $ 4.47, USED TO DATE $ 919.02= 92% 


**TIME SHARING OFF AT 12.655 ON 10/14/71 


Batch Activity Spawned by RUN 


As an example of the simplest case, consider that some source file is 
current in *SRC, and a RUN command is typed with none of the optional fields. A 
job setup comparable to the following will be dispatched to the batch system. 


$ SNUMB nnnntT,40 

$ USERID 

$ IDENT 

$ LOWLOAD 36 

$ OPTION ALGOL,NOMAP ,NOGO, SAVE/OBJECT 

$ USE .TSGF 

$ ALGOL NLSTIN,NDECK 

$ LIMITS 2,25K 

$ FILE S*,X1R source file *SRC 
$ FILE P*,X2S diagnostic report only 
$ EXECUTE 

$ FILE P*,X2R 

$ FILE H* ,X3R,3R bound program 

$ ENDJOB 
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The results of compilation and loading are returned on files P* and H*. P* 
is read and scanned for compiler and/or loader diagnostics. These are displayed 
on the teletypewriter and if there have been no fatal errors, the fully bound 
program will be loaded from H* and execution will proceed. 


Supplying Direct-Mode Program Input 


During program execution, keyboard input may need to be supplied to satisfy 
one or more input statements in the program. Each time input is required, the 
equal-sign character, "=", will be printed at the terminal. The user begins 


typing the input immediately following the equal sign. A carriage return signals 
the end of the input line. 


An end-of-file condition will be generated when the equal sign is 
immediately followed by a file separator character (control, shift, and L keys 


depressed simultaneously), which must be immediately followed by a carriage 
return. 


The ALGOL subroutine library allows multiple output statements to refer to 
the same output line; i.e., line spacing occurs only when the library encounters 
an alignment mark or when the line overflows. When both input from and output 
to the teletype are required, the user must insure that any complete lines which 


are to appear before an input line must be terminated with the proper alignment 
marks. 


It is also possible to input data from a paper tape. The actual characters 
transmitted to the terminal from an input statement are: carriage return (CR), 
rubout (RO), equal sign (=), and sign-on (X-ON). The sign-on character activates 
the paper tape reader if the reader is in the ready state. A ready state is 
achieved by having the paper tape "loaded" and the reader switches set to "AUTO" 
or "TD-ON". Paper tapes which are to be used in this way should erd each line 
with the characters: carriage return (CR), sign off (X-OFF), line feed (LF), 
rubout (RO). The sign-off character turns off the reader but leaves it in a 


ready state for any subsequent READ's, Paper tapes must begin with an 
appropriate leader of RO characters. 


Emergency Termination of Execution 


The use of the BREAK key will terminate program execution. All file output 
buffers, including the teletypewriter buffer, will be flushed, the files will be 
closed, and a NORMAL TERMINATION message will be generated. Control will return 
to the build-mode after the use of the BREAK key. 


Paper Tape Input 


In order to supply build-mode input from paper tape, the user gives the 
command TAPE. The system responds with READY. At this point, the user should 
position his tape in the reader and start the device. Input is terminated when 
either the end-of-tape occurs, the user turns off the reader, and X-OFF 
character is read by the paper tape reader, or a jammed tape causes a delay of 
over one second between the transmission of characters. 
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At present a maximum of 80 characters are permitted per line of paper _ tape 
input. Excessive lines will be truncated at 80 characters with the remaining 
data placed in the next line. A maximum of two disk links (7680 words) of paper 
tape input will be collected during a single input procedure. All data in excess 


of two disk links will be lost. 


Example of a Time~Sharing Session 


A comprehensive example of program creation, 
modification follows. Explanations are enclosed in 
part of the printout. 


USER ID ~BALLARD 
PASSWORD-~— 
ABEBEKEHIXKE 
SYSTEM ?ALGOL 
OLD OR NEW - NEW 
READY 
*0010'BEGIN' 
*0020'COMMENT' 


testing, correction and 
parentheses; they are not 


*0030 THIS IS THE OLD GAME OF THE TOWERS OF HANOI. 

*0040 A NUMBER OF DIFFERENT RINGS @@@@@@ SIZED RINGS ARE 
(typing correction) 

*0050 TO BE MOVED FROM POLE 2@1 TO POLE 3 WITH 

*0060 ASSISTANCE FROM POLE 2. ONE RING AT A TIME 

*0070 IS MOVED AND A LARGER RING CAN NOT REST ON 

*0070 IS MOVED AND A LARGER RING MAY NOT REST ON 

(replace line 70) 

*0080 A SMALLER; s 

*0090# 

*01004 

*0110 'PROCEDURE' HANOI (N,P1,P2,P3); 

*0120 '‘INTEGER' N,P1,P2,P3; 

*0130 ‘IF' N=0 'THEN' 'GOTO' EXIT; 

*0140 HANOI (N-1,P1,P3,P2); 

#0150 OUTPUT3(6,"/,"MOVE RING\,22D," FROM POLE\,2D," TO POLE\, 

*0160 2D\,N,P1,P2); 

*0170 HANOI (N-1,P3,P2,P1); 

*0180 EXIT: 


*0190 ‘END'; 

*0125 "BEGIN' 

*0200# 

*02104 

*0220 HANOI 

*0220 INPUT1(5,"L@ ,N); 


*0015'INTEGER' N; (insert line between lines 10 and 20) 


*0230# 

*0240 HANOI (N,1,3,2); 

*0250# 

*0260'END' OF ENTIRE PROGRAM 
*0190 ‘END' OF PROCEDURE HANOI; 
*LIST (list corrected program) 
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0010'BEGIN' 


0015 INTEGER" N; 

0020'COMMENT' 

0030 THIS IS THE OLD GAME OF THE TOWERS OF HANOI. 
0040 A NUMBER OF DIFFERENT SIZED RINGS ARE 

0050 TO BE MOVED FROM POLE 1 TO POLE 3 WITH 
0060 ASSISTANCE FROM POLE 2, ONE RING AT A TIME 
0070 IS MOVED AND A LARGER RING MAY NOT REST ON 
0080 A SMALLER; 

00908 

0100# 

0110  'PROCEDURE' HANOI(N,P1,P2,P3); 

0120 'INTEGER' N,P1,P2,P3; 

0125 "BEGIN' 

0130 ‘IF' N=0 'THEN' 'GOTO' EXIT; 

0140 HANOI (N-1,P1,P3,P2); 

0150 oUTPUT3 (6,"/,"MOVE RING\,2ZD," FROM POLE\,zZD," TO POLE\, 
0160 2D\,N,P2,P2); 

0170 HANOI (N-1,P3,P2,P1); 

0180 EXIT: 

0190 "END' OF PROCEDURE HANOI; 

0200# 

0210# 

0220 = INPUT1(5,"_,N); 

02304 

0240  HANOI(N,1,3,2); 

0250¢# 


0260'END' OF ENTIRE PROGRAM 
READY 1 


*SAVE ALGTEST (save program) 

DATA SAVED--ALGTEST 

*RUN (run program) 

NO ERROR IN ABOVE COMPILATION 

15098 WORDS WERE USED FOR THIS COMPILATION 
=3 (type input data) 


MOVE RING 1 FROM POLE’ 1 TO POLE 3 
MOVE RING 2 FROM POLE 1 TO POLE 2 
MOVE RING 1 FROM POLE 3 TO POLE 2 \ 
MOVE RING 3 FROM POLE 1 TO POLE 3 
MOVE RING 1 FROM POLE 2 TO POLE 1 
MOVE RING 2 FROM POLE 2 TO POLE 3 
MOVE RING 1 FROM POLE 1 TO POLE 3 


7275(10) WAS THE HIGHEST USED MEMORY LOCATION. 


NORMAL TERMINATION 
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REMOTE BATCH INTERFACE 


Refer to the GRTS Programming Reference Manual, for a description of the 
deck setup required For submitting a batch job from a remote terminal. 


FIL 


YSTEM INTERFACE 


The File System provides multiprocessor access to a common data base. The 
file system allocates permanent file space and controls file access for users in 
local and remote batch and time-sharing. The file system is fully described in 
the manual File System. 


TERMINAL/BATCH INTERFACE 


The CARDIN time-sharing subsystem allows the user to submit a batch job 
from a time-sharing terminal. This capability is fully described in the manual 
Time-Sharing System Terminal/Batch Interface Facility. 


FILE FORMATS 


The compiler will accept either ASCII or BCD source input. ASCII source 
input must be in the TSS format and is assumed to have line numbers. An ASCII 
input line of only numbers (or only numbers followed by a pound sign) will be 
ignored. In order to insert blank lines into the program, the line number must 
be followed by at least one blank. 


The subroutine library input routines will accept either ASCII or BCD 
input. ASCII input may be either in the TSS format (media code 5) or in 
“standard ASCII" format (media code 6). If an input file is in TSS format, it is 
assumed to have line numbers. The line numbers will be removed by the input 
routines, 


The subroutine library will write either ASCII or BCD output files. ASCII 
output files will be in the "standard ASCII" format (media code 6). Each output 
line will have one line feed appended to the end of the record. The last word of 
a line will be filled with "rub-out" characters, The alignment mark for 
restoring the page ( ) will generate a record of 16 consecutive line feeds. 


In the batch mode of operation, file codes 5 and 6 are assumed to be in BCD 
format. File code 5 is for the card reader (I*) and file code 6 is for the 
printer (P*). If I/O is to be performed on a file which is (or will be) in ASCII 
format, a statement SYSPARAM (FC, 24, 4) must precede the first reference to 
that file. 


In the time-sharing mode of operation, file codes 5 and 6 are assumed to 
reference the teletype (i.e., in ASCII format), Since the destination code 
(DSTCOD) capability is not available in time-sharing, if I/O is to be performed 
on ‘a file other than 5 or 6, a call to SYSPARAM with the appropriate parameters 
must precede the first reference to that file. 
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BASIC SYMBOLS WITH EQUIVALENT INTERNAL INTEGER VALUES 


SYMBOL VALUE SYMBOL VALUE 
A 32 "GQ! 163 
B 33 ‘GR! 164 
c 34 'NQ' 159 
D 35 ‘EQV' 154 
E 36 ‘IMP! 155 
F 37 "OR! 156 
G 38 ‘AND! 157 
H 39 ‘not! 158 
I 40 . 511 
a 41 5 172 
K 42 : 178 
L 43 ; 176 
M 44 ( 152 
N 45 ) 174 
° 46 if 153 
P 47 } 173 
Q 48 _ 182 
R 49 \ 183 
s 50 : 510 
T 51 = 144 
u 52 ¥ 181 
v 53 "ARRAY! r 134 
W 54 'BEGIN' 128 
% 55 *BOOLEAN' 133 
Y 56 'CODE' 140 
z 57 "COMMENT! 180 
0 0 "po! 148 
1 1 'ELSE' 151 
2 2 ‘END! 175 
3 3 ‘EXTENDED REAL' 131 
4 4 ‘FOR! 143 
5 5 ‘GO TO 142 
6 6 ‘IF! 149 
7 7 ‘INTEGER' 132 
8 8 "LABEL! 138 
9 9 "NONLOCAL' 141 
"TRUE 509 "OWN! 129 
"FALSE 508 ‘PROCEDURE! 135 
+ 165 ‘REAL! 130 
- 167 "RENAME! 184 
* 168 "STEP" 145 
/ 169 "STRING" 139 
% 170 "SWITCH" 136 
1 171 ‘THEN '. 150 
‘Ls! 160 ‘UNTIL’ 146 
"LQ' 161 "VALUE" 137 
‘EQ! 162 ‘WHILE’ 147 
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STACK TRACING ROUTINE 


PURPOSE 


To print the stack and non-procedural variables and/or to give an octal 
dump when an error is detected by the ALGOL run-time routines. 


USAGE 


The action to be taken is governed by the options on a $ USE control card, 
The two options are .ADUMP and .ADUMR. 


The option .ADUMP gives a decimal dump when the first error is detected, 
Also it gives a dump when the number of errors detected exceeds the maximum 
number allowed (at which time the execution is terminated). It gives a dump when 
the program is aborted by GCOS. 


The option .ADUMR gives an octal dump of all of memory when the first error 
is detected. 


\ 


The $ USE card is placed after the $ OPTION card and preceding the program, 
Both .ADUMP and .ADUMR may be used in the same execution activity. 
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ALTERNATE SYMBOL REPRESENTATIONS 


SYMBOL ALTERNATE (S) 
‘LS! < 

‘EQ' = 

"GR" > 

GQ! Se 

‘LQ! <= 

"NQ' j= 

~- t= or .= 
: j 

{ 

} ‘, 

NV yy? 

. 4/ 
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THE % OPTION CARD 


A special internal directive card is recognized by the ALGOL compiler. It 
is indicated by the percent sign (%) in column 1 and blanks in columns 2-6. 


Options begin in column 7 (or later) and are separated by commas. 
Currently the following options are available: 


NLSTIN Suppress listing of the source program beginning with the next 
source card, 
LSTIN Resume listing of the source program, 


NXREF Suppress symbol cross reference information beginning with the next 
source card. 


XREF Resume symbol cross reference information. 

LKDATA A binary deck of the link preset data will be punched. 
BOUND Perform array subscript checking. 
NBOUND Discontinue array subscript checking. 
LSTOU Start producing an output listing. 
NLSTOU Discontinue producing an output listing. 


NAPOST Allows ALGOL basic symbol words to be blank delineated instead of 
apostrophe delineated. 


APOST Resume accepting only apostrophe delineated basic symbol words. 
The LSTIN directive is inoperable unless the LSTIN option is in effect from 


the $ ALGOL control card. The NLSTIN/LSTIN options allow listing only selected 
portions of the source program, 


The use of the XREF/NXREF options allow obtaining only selected portions of 
the symbol cross reference table. They are not dependent on the SYMTAB option 
on the $ ALGOL control card. 


The use of the LKDATA option causes the compiler to generate a binary deck 
containing the link preset data which would normally be written on the LF file. 
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The BOUND option causes the compiler to generate coding which will'test the 
value of each subscript in an array reference. If the value is within the range, 
defined by the lower and upper bounds in the array declaration, no action is 
taken. If the value is too small, the error message 


<< < SUBSCRIPT #XX IS TOO SMALL. LOWER BOUND USED. ALTER YYYYY >>> 


is printed and the value of the subscript will be replaced by the value of the 
lower bound. If the value of the subscript is too large, the error message 


<<< SUBSCRIPT #XX IS TOO LARGE. UPPER BOUND USED. ALTER YYYYY >>> 


is printed and the value of the upper bound is used as the subscript. The option 
NBOUND causes the compiler to stop generating coding for checking subscripts. 
The BOUND/NBOUND options allow checking the value of subscripts in only selected 


portions of a program. 


The LSTOU/NLSTOU options are the same as used for the $ ALGOL control card. 
However, when used on the % OPTION card, an output listing of selected portions 


of the program is permitted. 


The NAPOST option allows the ALGOL basic symbol words such as BEGIN and END 
to be blank-separated instead of apostrophe-separated. The following rules 
govern the recognition of these words by the compiler. 


Blank Delineated} 
Preceded by at least one character. 
Followed by at least one character. 


qwo basic symbol words need only one 
blank character between them 
(/BEG INMINTEGER) . 


Neither the seimicolon, the end of 
card, nor any special character will 
be preceding or trailing blank char- 
ter. 


The basic symbol must be completely 
spelled out. 


No blanks are permitted between 
characters of a word (JBOTO¥ may not 
be written as GOPTOP) . 


Apostrophe Delineated 


Preceded by one and only one apostrophe. 
Followed by one and only one apostrophe. 


Two basic symbol words need two apostro- 
phes between them - one trailing and one 
preceding ('BEGIN' ‘INTEGER'). 


Neither the semicolon, the end of card, 
nor any special character will be ac- 
cepted in lieu of the preceding or 
trailing apostrophe. 


Only the first three characters are used 
to compare (e.g., 'BEG' will be accepted 
as 'BEGIN'). 


Blanks are not significant. 
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"ARRAY! 
. ‘ARRAY' 


"ARRAY' DECLARATIONS 
"ARRAY', 'OWN' 


INDEX 


"ELSE' 
CONDITIONAL, 'ELSE' 
CONDITIONAL, n 'IF' CLAUSES, 'ELSE' 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 
"FOR' 


"FOR' GENERAL 


"FOR' STATEMENTS 
"FOR', 'STEP' CLAUSE 
"FOR', 'WHILE' CLAUSE 
'FOR', EXPRESSION 


‘GO TO' 
‘GO TO' STATEMENTS 
'GO TO', CONDITIONAL DESIGNATOR 
"GO TO', LABEL 
"GO TO', SWITCH DESIGNATOR 


‘TF 
"IF' CLAUSE ARITHMETIC EXPRESSION 
‘IF' CLAUSE BOOLEAN EXPRESSION 
ASSIGNMENT, 'IF' CLAUSE 
ASSIGNMENT, n ‘IF' CLAUSES 
ASSIGNMENT, TWO 'IF' CLAUSES 
CONDITIONAL, n 'IF' CLAUSES 
CONDITIONAL, n 'IF' CLAUSES, 'ELSE' 
CONDITIONAL, TWO 'IF' CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


"LINK' 
"LINK' DECLARATION 
"LINK' DECLARATION 


"OWN" 
‘ARRAY', '‘OWN' 
TYPE, ‘OWN’ 

"PROCEDURE' 
*PROCEDURE' DECLARATION, FUNCTION DEFINITION 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 
"PROCEDURE' DECLARATION, SIMPLE 
"PROCEDURE' DECLARATION, SPECIFICATION PART 
‘PROCEDURE' DECLARATION, VALUE AND SPECIFICATION PART 
‘PROCEDURE’ DECLARATIONS 
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‘STEP' 
'FOR', 'STEP' CLAUSE 


‘SWITCH’ 
"SWITCH' DECLARATION 
"SWITCH' DECLARATION 


‘WHILE' 
"FOR', 'WHILE' CLAUSE 


ACTIVITY 
Batch Activity Spawned by RUN 


ALGOL 
A SAMPLE ALGOL PROGRAM 
DEFINITION OF ALGOL 
FORM OF AN ALGOL PROGRAM 
STRUCTURE OF ALGOL 
The ALGOL Run Command 
Time-Sharing Commands for ALGOL 
WRITING AN ALGOL PROGRAM 


ALIGNMENT 
Alignment Marks 


ALPHA 
Alpha Format 


ALTERNATE 
ALTERNATE SYMBOL REPRESENTATIONS 


ARITHMETIC ’ 
‘IF' CLAUSE ARITHMETIC EXPRESSION 
ARITHMETIC EXPRESSION 
Arithmetic Operators 
SIMPLE ARITHMETIC EXPRESSION 


ASSIGNMENT 
ASSIGNMENT STATEMENTS 
ASSIGNMENT, ‘IF’ CLAUSE 
ASSIGNMENT, n 'IF' CLAUSES 
ASSIGNMENT, SIMPLE 
ASSIGNMENT, TWO 'IF' CLAUSES 


BAD 
BAD DATA 


BATCH 
BATCH CALL CARD 
BATCH MODE 
Batch Activity Spawned by RUN 
REMOTE BATCH INTERFACE 
SAMPLE BATCH DECK SETUP 


BLOCK 
BLOCK 


BOOLEAN 
‘IF' CLAUSE BOOLEAN EXPRESSION 
BOOLEAN EXPRESSION 
Boolean Format 
evaluating a Boolean expression 
Insertions in Boolean Format 
SIMPLE BOOLEAN EXPRESSION 
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CALL 
BATCH CALL CARD 


CARD 
% OPTION CARD 
BATCH CALL CARD 


CLAUSE 

"FOR', 'STEP' CLAUSE 
"FOR', 'WHILE' CLAUSE 
‘IF' CLAUSE ARITHMETIC EXPRESSION 
IF' CLAUSE BOOLEAN EXPRESSION 
ASSIGNMENT, ‘IF' CLAUSE 
ASSIGNMENT, n 'IF' CLAUSES 
ASSIGNMENT, TWO 'IF' CLAUSES 

CONDITIONAL, n 'IF' CLAUSES 

“ CONDITIONAL, n 'IF' CLAUSES, 'ELSE' 
CONDITIONAL, TWO 'IF' CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


CODING 
Coding 


COMMAND 
Command Language 
The ALGOL Run Command 
Time-Sharing Commands for ALGOL 


COMMENTS 
Insertion of Comments 


COMPILED 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 


COMPOUND 
COMPOUND STATEMENT 


CONDITIONAL 
"GO TO', CONDITIONAL DESIGNATOR 
CONDITIONAL DESIGNATOR 
CONDITIONAL STATEMENTS 
CONDITIONAL, 'ELSE' 
CONDITIONAL, n ‘IF' CLAUSES 
CONDITIONAL, n 'IF' CLAUSES, 'ELSE' 
CONDITIONAL, SIMPLE 
CONDITIONAL, TWO 'IF' CLAUSES 
CONDITIONAL, TWO 'IF' CLAUSES, 'ELSE' 


CONTROL 
INPUT/OUTPUT CONTROL PROCEDURE 


CORRECTING 
Corrting or Modifying a Program 


DATA 
BAD DATA 
DATA TRANSMISSION PROCEDURES 
NO DATA 
transmission of data 


DECIMAL 
Decimal Numbers 
Decimal Numbers with Exponent 


DECK 
SAMPLE BATCH DECK SETUP 
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DECLARATION 
"LINK' DECLARATION 
‘LINK' DECLARATION 


‘PROCEDURE' DECLARATION, FUNCTION DEFINITION 
"PROCEDURE' DECLARATION, SEPARATELY COMPILED 


‘PROCEDURE' DECLARATION, SIMPLE 


‘PROCEDURE' DECLARATION, SPECIFICATION PART 
‘PROCEDURE’ DECLARATION, VALUE AND SPECIFICATION PART 


‘SWITCH' DECLARATION 

‘SWITCH' DECLARATION 
DECLARATION TYPES - 

STATEMENT AND DECLARATION FORMS 
‘ARRAY' DECLARATIONS 
"PROCEDURE' DECLARATIONS 

TYPE DECLARATIONS 

TYPE DECLARATIONS 


DESIGNATIONAL 
DESIGNATIONAL EXPRESSION 


DESIGNATOR 
'GO TO', CONDITIONAL DESIGNATOR 
"GO TO', SWITCH DESIGNATOR 
CONDITIONAL DESIGNATOR 
SWITCH DESIGNATOR 


DESTINATION 
DESTINATION CODE 


DEVICES 
INPUT/OUTPUT DEVICES 


DIRECT~MODE 
Supplying Direct-Mode Program Input 


DUMMY 
DUMMY STATEMENT 
DUMMY STATEMENT 


ELEMENT 
STRING ELEMENT 


EXAMPLES 
EXAMPLES OF LAYOUT PROCEDURES 


EXPONENT 
Decimal Numbers with Exponent 


EXPRESSION 
'FOR', EXPRESSION 
‘IF' CLAUSE ARITHMETIC EXPRESSION 
‘IF' CLAUSE BOOLEAN EXPRESSION 
ARITHMETIC EXPRESSION 
BOOLEAN EXPRESSION 
DESIGNATIONAL EXPRESSION 
EXPRESSION 
evaluating a Boolean expression 
SIMPLE ARITHMETIC EXPRESSION 
SIMPLE BOOLEAN EXPRESSION 


EXTENDED 
EXTENDED REAL NUMBER 


FILE 
FILE FORMATS 
FILE SYSTEM INTERFACE 
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FORMAT 
Alpha Format 
Boolean Format 
DESCRIPTIVE FORMAT 
DESCRIPTIVE FORMAT 
DESCRIPTIVE FORMAT 
FORMAT 
FORMAT n 
Format of Program ~- Statement Input 
Hollerith Format 
,Insertions in Boolean Format 
“Insertions in String Format 
Standard Format 
String Format 
Title Format 
FILE FORMATS 
Insertions in Number Formats 
Number Formats 
Truncation for Number Formats 


CODD DO DODRIGOIDUOH 
t 
NEVE POH OOP OPeaHEHOO 


FUNCTION 


"PROCEDURE' DECLARATION, FUNCTION DEFINITION 
MATHEMATICAL FUNCTIONS 
MISCELLANEOUS FUNCTIONS 


HEND 
HEND 


HLIM 
HLIM 


HOLLERITH 

Hollerith Format 
1/o 

layout of the I/O 


IDENTIFIER \ 
IDENTIFIER 


INLIST 
DETAILED EXPLANATION OF INLIST AND OUTLIST c-1 
INLIST 
INLIST 


INPUT 
Entering Program - Statement Input D-8 
Format of Program - Statement Input D-8 
INPUT n 
input and output processes 8-1 
Numbers for Input 
Paper Tape Input D-13 
Supplying Direct-Mode Program Input D-13 


INPUT/OUTPUT 
INPUT/OUTPUT CONTROL PROCEDURE 
INPUT/OUTPUT DEVICES 
INPUT/OUTPUT PROCEDURES 
INPUT/OUTPUT PROCESS 


INSERTIONS 
Insertions in Boolean Format 8 
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